NAME

Net::NicoVideo::Decorator - Interface decorator pattern

SYNOPSIS

            

              
              
package Foo::Bar;
use base qw(Net::NicoVideo::Decorator);
sub new {
    my ($class, $component, @extra_args) = @_;
    my $self = $class->SUPER::new($component);
    ...
    $self->initialize(@extra_args);
    ...
    ...
}
package main;
Foo::Bar->new(Some::Class->new);
            
          

DESCRIPTION

This provides common interface for the decorator pattern easily.

SEE ALSO

perl

AUTHOR

WATANABE Hiroaki <hwat@mac.com>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.