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.