On Fri, Mar 29, 2013 at 10:13 AM, Ovid <curtis_ovid_...@yahoo.com> wrote:
> { package R::Programmer; use Moose::Role; sub pay_rate {12} }
> { package R::Clerk; use Moose::Role; sub pay_rate {10} }
> { package R::Employee; use Moose;
> with 'R::Programmer' => {
> # this is why I want a "rename" property here
> exclude => 'pay_rate',
> alias => { pay_rate => 'programmer_pay_rate' }
> },
> 'R::Clerk' => {
> exclude => 'pay_rate',
> alias => { pay_rate => 'clerk_pay_rate' }
> };
> has [qw/hours programming_hours drudgery/] => ( is => 'ro' );
> sub pay_rate {8} # ugly hack for quick example. Oops
>
> sub paycheck {
> my $self = shift;
> return $self->programmer_pay_rate * $self->programming_hours
> + $self->clerk_pay_rate * $self->drudgery;
> }
> }
> my $employee = R::Employee->new(
> programming_hours => 15,
> drudgery => 25,
> );
> say $employee->paycheck;
As Jesse's earlier example showed, instead of excluding and aliasing,
just refer to the methods directly within the roles:
use v5.10.0;
{ package R::Programmer; use Moose::Role; sub pay_rate {12} }
{ package R::Clerk; use Moose::Role; sub pay_rate {10} }
{ package R::Employee; use Moose;
with 'R::Programmer';
with 'R::Clerk';
has [qw/programming_hours drudgery/] => ( is => 'ro' );
sub paycheck {
my $self = shift;
return $self->R::Programmer::pay_rate * $self->programming_hours
+ $self->R::Clerk::pay_rate * $self->drudgery;
}
}
my $employee = R::Employee->new(
programming_hours => 15,
drudgery => 25,
);
say $employee->paycheck;
--
Lars Balker Consult::Perl
