File Coverage

blib/lib/Rope/Lazier.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	6	66.6
condition	2	2	100.0
subroutine	8	8	100.0
pod			n/a
total	40	42	95.2

package Rope::Lazier;

use strict; use warnings;
use Types::Standard;
use Rope::Pro;

my (%PRO);

BEGIN {
	%PRO = Rope::Pro->new(
		function_map => {
			pro => 'prototyped',
			prop => 'property',
			props => 'properties',
			fun => 'function',
			pri => 'private',
			ro => 'readonly',
			ar => 'around',
			af => 'after',
			be => 'before'
		},
		property_map => {
			v => 'value',
			i => 'initable',
			w => 'writeable',
			c => 'configurable',
			e => 'enumerable',
			p => 'private',
			o => 'readonly',
			r => 'required',
			t => 'type',
			b => 'builder',
			tr => 'trigger',
			dtr => 'delete_trigger',
			pr => 'predicate',
			cl => 'clearer',
			hv => 'handles_via',
			h => 'handles'
		}
	);
}

sub import {
	my ($caller, $pkg, @props) = (scalar caller, @_);

	@props = (keys(%{$PRO{property_map}}), keys(%{$PRO{function_map}})) if (! scalar @props);

	for my $p (@props) {
		if ($PRO{property_map}{$p}) {
			$PRO{keyword}($caller, $p, sub {
				my ($param) = @_;
				return ($PRO{property_map}{$p} => ($param // 1));
			});
		} elsif ($PRO{function_map}{$p}) {
			$PRO{keyword}($caller, $p, sub {
				my (@params) = @_;
				my $meth = $PRO{function_map}{$p};
				$caller->$meth(@params);
			});
		}
	}
}

1;

__END__