view release on metacpan or  search on metacpan

lib/Perl/Server.pm  view on Meta::CPAN

    return bless {
        path => $path ? $path : getcwd,
        type => ''
    }, $class;
}

sub run {
    my $self = shift;
    my @argv = @_;
    
    local @ARGV = @argv;   
    
    my $parser = Getopt::Long::Parser->new(
        config => [ "no_auto_abbrev", "no_ignore_case", "pass_through" ],
    ); 
    
    my $port;
    
    $parser->getoptions(
        "p|port=s" => \$port
    );