File Coverage

blib/lib/MooX/Pack.pm

Criterion	Covered	Total	%
statement	44	45	97.7
branch	2	2	100.0
condition			n/a
subroutine	11	12	91.6
pod			n/a
total	57	59	96.6

package MooX::Pack;

use strict;
use warnings;
use Carp qw/croak/;
use MooX::ReturnModifiers;

our $VERSION = '0.04';

sub import {
	my ( $self, @import ) = @_;
	my $target = caller;
	my %modifiers = return_modifiers($target);
	$modifiers{has}->( 'target' => ( is => 'ro', lazy => 1, default => sub { return $target; } ) );
	my ($spec, $aspec, $index) = ({}, undef, 0);
	{ no strict 'refs'; *{"${target}::line"} = sub {
		my ( $name, %attributes ) = @_;
		if (!$spec->{$name}) {
			$spec->{$name}->{spec} = [];
			$spec->{$name}->{index} = $index++;
		}
		push @{ $spec->{$name}->{spec} }, \%attributes;
	}; }
	{ no strict 'refs'; *{"${target}::seperator"} = sub {
		my ( %attributes ) = @_;
		$aspec = \%attributes;
	}; }
	$modifiers{with}->('MooX::Pack::Base');
	$modifiers{sub}->(
		"_build_line_spec" => sub {
			my ( $orig, $self ) = ( shift, shift );
			return $spec;
		}
	);
	$modifiers{sub}->(
		"_build_all_spec" => sub {
			my ( $orig, $self ) = ( shift, shift );
			return $aspec;
		}
	);
}

1;

__END__