lib/MJAM/main.pm

package MJAM::main;

use Exporter;
@ISA = qw ( Exporter );
@EXPORT = qw ( DEBUG DEBUG_POE in_array );

use strict;
use warnings;

sub DEBUG { return 0; }
sub DEBUG_POE { return 0; }

sub in_array {
  my $search = shift;
  my $arrayref = shift;
  my $bool_ok = 0;
  map { $bool_ok++ if ($search && ($_ eq $search) ); } @{$arrayref};
  $bool_ok && return 1;
}

1;
1	package MJAM::main;
2
3	use Exporter;
4	@ISA = qw ( Exporter );
5	@EXPORT = qw ( DEBUG DEBUG_POE in_array );
6
7	use strict;
8	use warnings;
9
10	sub DEBUG { return 0; }
11	sub DEBUG_POE { return 0; }
12
13	sub in_array {
14	my $search = shift;
15	my $arrayref = shift;
16	my $bool_ok = 0;
17	map { $bool_ok++ if ($search && ($_ eq $search) ); } @{$arrayref};
18	$bool_ok && return 1;
19	}
20
21	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26