File Coverage

blib/lib/Rope/Chain.pm

Criterion	Covered	Total	%
statement	23	25	92.0
branch	5	6	83.3
condition	2	2	100.0
subroutine	6	7	85.7
pod			n/a
total	36	40	90.0

package Rope::Chain;

use strict; use warnings;
my (%PRO);

use Rope::Pro;

BEGIN {
	%PRO = Rope::Pro->new();
}

sub import {
	my ($caller) = (scalar caller);
	$PRO{keyword}($caller, 'chain', sub {
		my ($name, @factory) = @_;

		my ($meta, $chain, $exists) = (Rope->get_meta($caller), [], 0);
		if ($meta->{properties}->{$name}) {
			$chain = $meta->{properties}->{$name}->{after} || [];
			$exists = 1;
		}
		my ($prop, $cb) = (shift(@factory), shift(@factory));
		if ($meta->{properties}->{$prop}) {
			die 'Cannot extend Object($caller) with a chain property ($prop) as a property with that name is already defined';
		}
		$caller->property($prop,
			value => sub { $cb->(@_); }
		);
		if (!$exists) {
			$caller->property($name,
				value => $cb,
			);
		} else {
			$caller->after($name, $cb);
		}
	});
}

1;

__END__