File Coverage

blib/lib/MooX/Override.pm

Criterion	Covered	Total	%
statement	27	38	71.0
branch	2	4	50.0
condition			n/a
subroutine	8	11	72.7
pod			n/a
total	37	53	69.8

package MooX::Override;

use 5.008;
use strict;
use warnings;
no warnings qw( once void uninitialized );

BEGIN {
	$MooX::Override::AUTHORITY = 'cpan:TOBYINK';
	$MooX::Override::VERSION   = '0.002';
}

sub import
{
	goto &_import_class
		if grep { $_ eq '-class' } @_;
	goto &_import_role
		if grep { $_ eq '-role' } @_;

	require Carp;
	Carp::confess("MooX::Override requires an indication of -class or -role; stopped");
}

sub _import_class
{
	my $target = caller;

	foreach my $fun (qw( override super ))
	{
		Moo::_install_tracked(
			$target,
			$fun,
			sub {
				require Class::Method::ModifiersX::Override;
				my $orig = Class::Method::ModifiersX::Override->can($fun);
				goto $orig;
			},
		);
	}
}

sub _import_role
{
	my $target = caller;
	my $INFO = \%Role::Tiny::INFO;

	Moo::Role::_install_tracked(
		$target,
		'override',
		sub {
			require Class::Method::ModifiersX::Override;
			my $sub = Class::Method::ModifiersX::Override::_mk_around($target, pop);
			push @{ $INFO->{$target}{modifiers} }, [ around => @_, $sub ];
			'Moo::Role'->_maybe_reset_handlemoose($target);
		},
	);

	Moo::_install_tracked(
		$target,
		'super',
		sub {
			require Class::Method::ModifiersX::Override;
			my $orig = 'Class::Method::ModifiersX::Override'->can('super');
			goto $orig;
		},
	);
}

1;


__END__