view release on metacpan or  search on metacpan

lib/Dist/Maker/Template/CLI.pm  view on Meta::CPAN

42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
}
 
sub appname {
    my($self) = @_;
    require File::Basename;
    return File::Basename::basename($0);
}
 
sub new {
    my $class = shift;
    local @ARGV = @_;
 
    my %opts;
    my $success = $class->getopt_parser->getoptions(
        \%opts,
        $class->getopt_spec());
 
    if(!$success) {
        $opts{help}++;
        $opts{getopt_failed}++;
    }