view release on metacpan or  search on metacpan

lib/Applify.pm  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;

  no strict 'refs';
  $self->{skip_subs}{$_} = 1 for keys %$ns;

  for my $k (qw(app extends hook option version documentation subcommand)) {
    $self->{skip_subs}{$k} = 1;
    my $name = $args{$k} // $k;
    next unless $name;
    $export{$k} = $name =~ /::/ ? $name : "$caller[0]\::$name";