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.