view release on metacpan or  search on metacpan

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

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
    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
    );