File Coverage

blib/lib/Net/NicoVideo/Decorator.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	3	4	75.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	34	38	89.4

package Net::NicoVideo::Decorator;

use strict;
use warnings;
use vars qw($VERSION);
$VERSION = '0.01_26';

use vars qw($AUTOLOAD);

sub AUTOLOAD {
    my $self = shift;
    return if $AUTOLOAD =~ /::DESTROY$/;
    my $method = $AUTOLOAD;
    $method =~ s/.+:://;
    $self->_component->$method(@_);
}

sub new {
    my $class = shift;
       $class = ref $class || $class;
    my $self  = {
        _component => $_[0],
        };
    bless $self, $class;
}

sub _component {
    my $self = shift;
    return @_ ? $self->{_component} = shift : $self->{_component};
}

1;
__END__