view release on metacpan or  search on metacpan

lib/Net/Signalet/script.pm  view on Meta::CPAN

        daddr   => undef,
        saddr   => undef,
        port    => undef,
    }, $class;
    return $self;
}

sub parse_options {
    my $self = shift;

    local @ARGV = @{$self->{argv}};
    push @ARGV, @_;
    Getopt::Long::Configure("bundling");
    Getopt::Long::GetOptions(
        'h|help'      => sub { $self->{action} = 'show_help' },
        'v|verbose'   => sub { $self->{verbose} = 1 },
        's|server'    => sub { $self->{server} = 1 },
        'c|client=s'  => sub { $self->{client} = 1; $self->{daddr} = $_[1] },
        'p|port=i'    => \$self->{port},
        'b|bind=s'    => \$self->{saddr},
        'V|version'   => sub { $self->{action} = 'show_version' },