view release on metacpan or  search on metacpan

bin/perlbrewise-spec  view on Meta::CPAN

    return $self;
  }
  
  sub import {
    my ($class, %args) = @_;
    my @caller = caller;
    my $self   = $class->new({caller => \@caller});
    my $ns     = $caller[0] . '::';
    my %export;
  
    strict->import;
    warnings->import;
  
    $self->{skip_subs} = {app => 1, option => 1, version => 1, documentation => 1, extends => 1, subcommand => 1};
  
    no strict 'refs';
    for my $name (keys %$ns) {
      $self->{'skip_subs'}{$name} = 1;
    }
  
    for my $k (qw(app extends option version documentation subcommand)) {