Moose\Meta\Protect.pm

package Moose::Meta::Protect;

use strictures 2;

use Package::Stash;
use Module::Runtime 'use_module';

use Exporter 'import';

our @EXPORT_OK = qw( protect_modifiers );

1;

sub protect_modifiers {
	my $stash = Package::Stash->new( (caller)[0] );
	for my $role (@_) {
		my $meta = use_module($role)->meta;
		my @list = map $meta->get_method_modifier_list($_), qw( around before after );
		for my $meth (@list) {
			next unless    #
			  my $old_symbol = $stash->get_symbol("&$meth");
			$stash->add_symbol( "&_orig_$meth", $old_symbol );
		}
	}
	return @_;
}