[p5sagit/Function-Parameters.git] / lib / Function / Parameters / Info.pm

package Function::Parameters::Info;

use v5.14.0;

use warnings;

use Moo;

our $VERSION = '0.01';

my @pn_ro = glob '{positional,named}_{required,optional}';

for my $attr (qw[keyword invocant slurpy], map "_$_", @pn_ro) {
	has $attr => (
		is => 'ro',
	);
}

for my $gen (join "\n", map "sub $_ { \@{\$_[0]->_$_} }", @pn_ro) {
	eval "$gen\n1" or die $@;
}

'ok'

__END__
Commit	Line	Data
53c979f0	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__