aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2020-05-04 17:14:40 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2020-05-04 17:15:48 +0200
commitdd13dba42c7f6d27a540edb96e11d8172f17bcad (patch)
tree9df4a118f339639ce3df1a6697d09a9db5b69bfb
parentb8993622902a36b24520c0ed5396dde7bc93bfe6 (diff)
downloadperl-Hal-Cdroms-dd13dba42c7f6d27a540edb96e11d8172f17bcad.tar
perl-Hal-Cdroms-dd13dba42c7f6d27a540edb96e11d8172f17bcad.tar.gz
perl-Hal-Cdroms-dd13dba42c7f6d27a540edb96e11d8172f17bcad.tar.bz2
perl-Hal-Cdroms-dd13dba42c7f6d27a540edb96e11d8172f17bcad.tar.xz
perl-Hal-Cdroms-dd13dba42c7f6d27a540edb96e11d8172f17bcad.zip
document member() - needed for next commit
also explain from where it came
-rw-r--r--lib/Hal/Cdroms.pm7
1 files changed, 7 insertions, 0 deletions
diff --git a/lib/Hal/Cdroms.pm b/lib/Hal/Cdroms.pm
index a4e0b65..aac8d72 100644
--- a/lib/Hal/Cdroms.pm
+++ b/lib/Hal/Cdroms.pm
@@ -275,6 +275,13 @@ sub _reactor_wait {
$found_val;
}
+=head2 member(SCALAR, LIST)
+
+is the value in the list?
+
+=cut
+
+# From MDK::Common::DataStructure :
sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 }
=head1 AUTHOR