Select Code to Download

my $effect = Effect->new;
$effect->set( salary => 1.02, '*' ); # A 2% raise
$employee->apply_effect( $effect );

sub AUTOLOAD {
# do nothing
}

$employee->salary(  $employee->salary * 1.02  );

$employee->salary(  $employee->salary * 1.02  );
# we don't mind if they don't have a frobnitz
eval { $employee->frobnitz(  $employee->frobnitz + 1.5  ) };