File Coverage

blib/lib/Object/Method.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	8	8	100.0
pod	0	1	0.0
total	49	51	96.0

package Object::Method;

use strict;
use warnings;

use Scalar::Util ();

our $VERSION = '0.04';

sub import {
    no strict;
    if (@_ > 0) {
        *{caller() . '::method'} = \&method;
    }
}

sub method {
    my ($o, $m, $c) = @_;

    my $p = Scalar::Util::blessed($o);
    my $id = Scalar::Util::refaddr($o);

    unless ($p =~ /#<(\d+)>$/ and $id == $1) {
        my $op = $p;

        $p =~ s/(?:#<\d+>)?$/#<$id>/;

        # eval "package $p;";
        bless $o, $p;
        {
            no strict;
            @{$p . '::ISA'}=($op);
        }
    }

    {
        no strict;
        *{$p . "::$m"} = $c;
    }
    return $o;
}

1;

__END__