Class::Prototyped::Mixin 2.4

Class::Prototyped::Mixin Perl module contains Mixin Support for Class::Prototyped.

SYNOPSIS

Usage one: whip up a class and toss it in a scalar
package HelloWorld;

sub hello {
my ($self, $age) = @_;
return "Hello World! I am $age years old"
}


package HelloWorld::Uppercase;
use base qw(Class::Prototyped);

__PACKAGE__->reflect->addSlot(
[qw(hello superable)] => sub {
my $self = shift;
my $ret = $self->reflect->super(hello, @_);
uc $ret
}
);


package HelloWorld::Bold;
use base qw(Class::Prototyped);

__PACKAGE__->reflect->addSlot(
[qw(hello superable)] => sub {
my $self = shift;
my $ret = $self->reflect->super(hello, @_);
"< b >$ret< /b >";
}
);


package HelloWorld::Italic;
use base qw(Class::Prototyped);

__PACKAGE__->reflect->addSlot(
[qw(hello superable)] => sub {
my $self = shift;
my $ret = $self->reflect->super(hello, @_);
"< i >$ret< /i >";
}
);

# script.pl - now the whipping begins
use Class::Prototyped::Mixin qw(mixin);
my $runtime = mixin(
HelloWorld => HelloWorld::Uppercase, HelloWorld::Italic
);

print $runtime->hello(74);
< i >HELLO WORLD! I AM 74 YEARS OLD< /i >
Usage two: create hierarchy and install in a Class::Prototyped package
package CompileTime;
use Class::Prototyped::Mixin qw(mixin);

my $uclass = mixin(
HelloWorld => HelloWorld::Uppercase, HelloWorld::Bold
);

__PACKAGE__->reflect->addSlot(
* => $uclass
);


# script.pl
use CompileTime;

print CompileTime->hello(88);
< b >HELLO WORLD! I AM 88 YEARS OLD< /b >