File Coverage

example/lib/Method/Modifiers.pm

Criterion	Covered	Total	%
statement	33	35	94.2
branch	4	6	66.6
condition	2	3	66.6
subroutine	9	10	90.0
pod	4	4	100.0
total	52	58	89.6

package # this is an example for modify_subroutine()/subroutne_modifier().
	Method::Modifiers;

use strict;
use warnings;

our $VERSION = '0.66';

use Exporter qw(import);

our @EXPORT    = qw(before around after);
our @EXPORT_OK = (@EXPORT, qw(add_method_modifier));
our %EXPORT_TAGS = (
	all   => \@EXPORT_OK,
	moose => \@EXPORT,
);

use Data::Util ();

sub _croak{
	require Data::Util::Error;
	goto &Data::Util::Error::croak;
}

sub add_method_modifier{
	my $into     = shift;
	my $type     = shift;
	my $modifier = pop;

	foreach my $name(@_){
		my $method = Data::Util::get_code_ref($into, $name);

		if(!$method || !Data::Util::subroutine_modifier($method)){

			unless($method){
				$method = $into->can($name)
					or _croak(qq{The method '$name' is not found in the inheritance hierarchy for class $into});
			}

			$method = Data::Util::modify_subroutine($method, $type => [$modifier]);

			no warnings 'redefine';
			Data::Util::install_subroutine($into, $name => $method);
		}
		else{ # $method exists and is modified
			Data::Util::subroutine_modifier($method, $type => $modifier);
		}
	}
	return;
}

sub before{
	my $into = caller;
	add_method_modifier($into, before => @_);
}
sub around{
	my $into = caller;
	add_method_modifier($into, around => @_);
}
sub after{
	my $into = caller;
	add_method_modifier($into, after  => @_);
}


1;
__END__