AC-MrGamoo
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
eg/mrgamood view on Meta::CPAN
#!/usr/local/bin/perl
# -*- perl -*-
#
# example mrmagoo daemon
use Getopt::Std;
use AC::MrMagoo::D;
use strict;
our %OPT;
my @saved_argv = @ARGV;
getopts('c:dDfp:', \%OPT) || die "usage...\n";
# -c config file
# -d enable all debugging
# -f foreground
# -p port
my $mrm = AC::MrMagoo::D->new(
class_filelist => 'My::Code::FileList',
class_readinput => 'My::Code::ReadInput',
class_myself => 'My::Code::MySelf',
);
$mrm->daemon( $OPT{c}, {
argv => \@saved_argv,
foreground => $OPT{f},
debugall => $OPT{d},
port => $OPT{p},
} );
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.662 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )