File Coverage

blib/lib/Acme/Nooo.pm

Criterion	Covered	Total	%
statement	21	26	80.7
branch	6	8	75.0
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	31	38	81.5

package Acme::Nooo;

our $VERSION = '0.02';

sub import
{
    my $nooo = shift;
    my ($class, @stubs) = @_;
    my $obj;
    if (ref $class eq 'ARRAY') {
        my @args;
        ($class, @args) = @$class;
        eval "use $class";
        $obj = new $class @args;
    } elsif (!ref $class) {
        eval "use $class";
        $obj = new $class;
    } else {
        $obj = $class;
    }
    my $pack = caller;
    # my $obj = ($nooo eq 'Acme::Nooo') ? new $class @_ : $class;
    @stubs = keys %{"$class\::"} unless @stubs;
    for (@stubs) {
        if (UNIVERSAL::can($obj, $_)) {
            my $subname = $_;
            *{"$pack\::$subname"} = sub { $obj->$subname(@_); };
        }
    }
    ## A bit too evil
    # eval {
    #     for (keys %$obj) {
    #         ${"$class\::$_"} = $obj->{$_};
    #     }
    # };
}

# our %AUTO;

# sub autoload
# {
#     $AUTOLOAD =~ s/.*:://;
#     my $pack = caller;
#     for (@{$AUTO{$pack}}) {
#         if (UNIVERSAL::can($_, $AUTOLOAD)) {
#             return $_->$AUTOLOAD(@_);
#         }
#     }
#     die "$AUTOLOAD: Nooooo can do...";
# }

# sub import
# {
#     shift;
#     my $obj = shift;
#     my $pack = caller;
#     *{"$pack\::AUTOLOAD"} = \&autoload
#         unless \&{"$pack\::AUTOLOAD"} eq \&autoload;
#     push @{$AUTO{$pack}}, $obj;
# }

1;

__END__