File Coverage

blib/lib/Rope/Conditional.pm

Criterion	Covered	Total	%
statement	22	29	75.8
branch	2	6	33.3
condition	1	2	50.0
subroutine	8	8	100.0
pod			n/a
total	33	45	73.3

package Rope::Conditional;

use strict; use warnings;

my (%PRO);

use Rope::Pro;
use Struct::Conditional;

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

sub import {
	my ($caller, $pkg) = (scalar caller);
	$PRO{keyword}($caller, 'conditional', sub {
		my ($name, %conditional) = @_;
		my ($meta, $class, $data) = (Rope->get_meta($caller), 'Struct::Conditional');

		if ($meta->{properties}->{$name}) {
			if ($meta->{properties}->{$name}->{conditional}) {
				Rope->clear_property($caller, $name);
			} else {
				die 'Cannot extend Object($caller) with a conditional property ($prop) as a property with that name is already defined';
			}
		}
		if (ref $_[1]) {
			$pkg = $class = $_[1]->[0] . '::Conditional';
			$pkg =~ s/\:\:/\//g;
			require $pkg . '.pm';
			$data = $_[1]->[1];
		}

		$caller->property($name,
			value => sub { shift; $class->new()->compile($data || \%conditional, @_, 1) },
			conditional => 1
		);
	});
}

1;

__END__