1 package Function::Parameters::Info;
11 my @pn_ro = glob '{positional,named}_{required,optional}';
13 for my $attr (qw[keyword invocant slurpy], map "_$_", @pn_ro) {
19 for my $gen (join "\n", map "sub $_ { \@{\$_[0]->_$_} }", @pn_ro) {
20 eval "$gen\n1" or die $@;