lib/Function/Parameters/Info.pm

   1 package Function::Parameters::Info;
   2
   3 use v5.14.0;
   4
   5 use warnings;
   6
   7 use Moo;
   8
   9 our $VERSION = '0.01';
  10
  11 my @pn_ro = glob '{positional,named}_{required,optional}';
  12
  13 for my $attr (qw[keyword invocant slurpy], map "_$_", @pn_ro) {
  14         has $attr => (
  15                 is => 'ro',
  16         );
  17 }
  18
  19 for my $gen (join "\n", map "sub $_ { \@{\$_[0]->_$_} }", @pn_ro) {
  20         eval "$gen\n1" or die $@;
  21 }
  22
  23 'ok'
  24
  25 __END__