diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-04 17:14:40 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2020-05-04 17:15:48 +0200 |
| commit | dd13dba42c7f6d27a540edb96e11d8172f17bcad (patch) | |
| tree | 9df4a118f339639ce3df1a6697d09a9db5b69bfb | |
| parent | b8993622902a36b24520c0ed5396dde7bc93bfe6 (diff) | |
| download | perl-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.pm | 7 |
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 |