File Coverage

blib/lib/Rope/Type.pm

Criterion	Covered	Total	%
statement	30	31	96.7
branch	7	8	87.5
condition			n/a
subroutine	8	8	100.0
pod			n/a
total	45	47	95.7

package Rope::Type;

use strict; use warnings;
use Types::Standard;
use Rope::Pro;
my (%PRO);

BEGIN {
	%PRO = Rope::Pro->new(
		type_map => {
			int => 'Int',
			bool => 'Bool',
			str => 'Str',
			hash => 'HashRef',
			array => 'ArrayRef',
			scalar => 'ScalarRef',
			code => 'CodeRef',
			file => 'FileHandle',
			obj => 'Object'
		}
	);
}

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

	@types = keys %{$PRO{type_map}} unless scalar @types;

	for (@types) {
		no strict 'refs';
		my $type = &{"Types::Standard::$PRO{type_map}{$_}"};
		$PRO{keyword}($caller, $_, sub {
			my (@params) = @_;
			my $count = scalar @params;
			return $type unless $count;
			if ($count <= 2) {
				$caller->property($params[0],
					type => $type,
					initable => 1,
					enumerable => 1,
					writeable => 1,
					(defined $params[1] ? (value => $params[1]) : ()),
				);
			} else {
				my $name = shift @params;
				$caller->property($name, @params, type => $type);
			}
			return;
		});
	}
}

1;

__END__