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	cvsjoko	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