Parent Directory
| 
Revision Log
Initial revision
| 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 |  |