note
sri
Yes, multiple inheritance is quite lame for mixin style programming, but try to think a bit more abstract.<br/>
The important part is that we use it in combination with <a href="http://search.cpan.org/dist/NEXT">NEXT</a> for AOP like programming, think AspectJ without static trigger points!<br/>
<code>
package Foo;
use base qw/Bar::Unicode Bar/;
__PACKAGE__->prepare_parameters;
package Bar;
sub prepare_parameters {
my $class = shift;
# initialize parameters...
}
package Bar::Unicode;
use NEXT;
sub prepare_parameters {
my $class = shift;
# let parent initialize parameters
$class->NEXT::prepare_parameters;
# utf8 encode parameters...
}
</code>
Hope this makes it a bit clearer.
488320
488432