lib/MJAM/main.pm

#!/usr/bin/perl
##
## MJAM::main -- MJAM main Package (multipurpose)
##
## $Id$
##
## $Log$
##
##
package MJAM::main;

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

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;
}

sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }

1;
1	#!/usr/bin/perl
2	##
3	## MJAM::main -- MJAM main Package (multipurpose)
4	##
5	## $Id$
6	##
7	## $Log$
8	##
9	##
10	package MJAM::main;
11
12	use Exporter;
13	@ISA = qw ( Exporter );
14	@EXPORT = qw ( DEBUG DEBUG_POE in_array RUNNING_IN_HELL );
15
16	use strict;
17	use warnings;
18
19	sub DEBUG { return 0; }
20	sub DEBUG_POE { return 0; }
21
22	sub in_array {
23	my $search = shift;
24	my $arrayref = shift;
25	my $bool_ok = 0;
26	map { $bool_ok++ if ($search && ($_ eq $search) ); } @{$arrayref};
27	$bool_ok && return 1;
28	}
29
30	sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
31
32	1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26