File Coverage

blib/lib/Method/Extension.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	1	0.0
total	38	40	95.0

package Method::Extension;

use 5.006;
use strict;
use warnings;

# ABSTRACT: Method Extension port for perl

our $VERSION = "0.2";

use base 'Attribute::Handlers';

sub UNIVERSAL::ExtensionMethod : ATTR(CODE) {
    my ( $symbol, $referent, $packages ) = @_[ 1, 2, 4 ];

    my $original_method_name = *{$symbol}{NAME};

    $packages = [$packages] unless ref $packages eq 'ARRAY';

    foreach my $package ( @{$packages} ) {
        {
            no strict 'refs';
            use warnings FATAL => 'uninitialized';

            *{"$package\::$original_method_name"} = $referent;
        }
    }
}

1;
__END__