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.