view release on metacpan or  search on metacpan

lib/Role/Tiny.pm  view on Meta::CPAN

    }
    grep exists &{"${package}::${_}"},
    grep !/::\z/,
    keys %$stash
  };
}

sub import {
  my $target = caller;
  my $me = shift;
  strict->import;
  warnings->import;
  $me->init_role($target, @_);
}

sub init_role {
  my ($me, $target, @args) = @_;

  my $non_methods = $me->_non_methods($target);
  $me->_install_subs($target, @args);
  $me->make_role($target);