AC-Yenta
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
#!/usr/local/bin/perl
# -*- perl -*-
#
# example yenta daemon
use Getopt::Std;
use AC::Yenta::D;
use strict;
my @saved_argv = @ARGV;
my %OPT;
getopts('c:dfp:', \%OPT) || die "usage...\n";
# -c config file
# -d enable all debugging
# -f foreground
# -p port
my $y = AC::Yenta::D->new(
class_myself => 'My::Code::MySelf',
);
$y->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 1.116 second using v1.00-cache-2.02-grep-82fe00e-cpan-3b7f77b76a6c )