view release on metacpan or  search on metacpan

script/pick  view on Meta::CPAN

#    }
#    grep exists &{"${package}::${_}"},
#    grep !/::\z/,
#    keys %$stash
#  };
#}
#
#sub import {
#  my $target = caller;
#  my $me = shift;
#  strict->import;
#  warnings->import;
#  my $non_methods = $me->_non_methods($target);
#  $me->_install_subs($target, @_);
#  $me->make_role($target);
#  $me->_mark_new_non_methods($target, $non_methods)
#    if $non_methods && %$non_methods;
#  return;
#}
#
#sub _mark_new_non_methods {

script/pick-random-lines  view on Meta::CPAN

#    }
#    grep exists &{"${package}::${_}"},
#    grep !/::\z/,
#    keys %$stash
#  };
#}
#
#sub import {
#  my $target = caller;
#  my $me = shift;
#  strict->import;
#  warnings->import;
#  my $non_methods = $me->_non_methods($target);
#  $me->_install_subs($target, @_);
#  $me->make_role($target);
#  $me->_mark_new_non_methods($target, $non_methods)
#    if $non_methods && %$non_methods;
#  return;
#}
#
#sub _mark_new_non_methods {