File Coverage

blib/lib/Rope/Type.pm

Criterion	Covered	Total	%
statement	24	25	96.0
branch	7	8	87.5
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	36	38	94.7

package Rope::Type;

use Types::Standard;

my (%PRO);

BEGIN {
	%PRO = (
		keyword => sub {
			my ($caller, $method, $cb) = @_;
			no strict 'refs';
			*{"${caller}::${method}"} = $cb;
		},
		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) {
		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,
					enumerable => 1,
					writeable => 1,
					(defined $params[1] ? (value => $params[1]) : ()),
				);
			} else {
				my $name = shift @params;
				$caller->property($name, @params, type => $type);
			}
			return;
		});
	}
}

1;

__END__