I've been trying to undersand what mixins are and at the same time figuring
out how to make them easy to use. I just belched out this piece of code, but
I dont know if its doing anything special:

use warnings;
use strict;

package MyMixins;

sub SomeMethod {
my $obj = shift;
print( 'a ', ref( $obj ), ' goes: ', $obj->{slot}, "n" );
}

package MyClient;

sub new {
my $class = shift;
my $self = bless( { }, $class );
$self->{slot} = shift || 'moo';
return $self;
}

package main;

my $client = MyClient->new;
$client->MyMixins::SomeMethod;

print("done!n");

C:waverighthometrwwwmisc>perl mixintest.pl
a MyClient goes: moo
done!

On Jul 13, Todd W said: