AHA
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
example/lava_lamp.pl view on Meta::CPAN
my $MANUAL_DELTA = 5 * 60;
# Maximum number of history entries to store
my $MAX_HISTORY_ENTRIES = 1000;
# ============================================================================
# End of configuration
use Storable qw(fd_retrieve store_fd store retrieve);
use Data::Dumper;
use feature qw(say);
use Fcntl qw(:flock);
use Getopt::Long;
use strict;
my %opts = ();
GetOptions(\%opts, 'type=s','mode=s','debug!','name=s','label=s','config=s');
my $DEBUG = $opts{debug};
read_config_file($opts{config}) if $opts{config};
init_status();
view all matches for this distributionview release on metacpan - search on metacpan
( run in 3.324 seconds using v1.00-cache-2.02-grep-82fe00e-cpan-72ae3ad1e6da )