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	cvsjoko	1.2	#!/usr/bin/perl
2			##
3			## MJAM::main -- MJAM main Package (multipurpose)
4			##
5			## $Id$
6			##
7			## $Log$
8			##
9			##
10	cvsjoko	1.1	package MJAM::main;
11
12			use Exporter;
13			@ISA = qw ( Exporter );
14	cvsjoko	1.2	@EXPORT = qw ( DEBUG DEBUG_POE in_array RUNNING_IN_HELL );
15	cvsjoko	1.1
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	cvsjoko	1.2
30			sub RUNNING_IN_HELL () { $^O eq 'MSWin32' }
31	cvsjoko	1.1
32			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26