view release on metacpan or  search on metacpan

queue.pm  view on Meta::CPAN

use strict;
use warnings;
use Carp;

use vars qw/$VERSION $basedir $tally/;

$VERSION = '0.02';
$tally = 'a';

# use TipJar::fields qw/RA targetlist body/;
sub RA(){0};
sub targetlist(){1};
sub body(){2};
# humbug
# use Fcntl ':flock';
sub FLOCK_EX(){2};
sub FLOCK_UN(){8};

sub new{
	bless [undef,[],''];
};