Help for this page

Select Code to Download

Select or download this

   $roger = new Employee::Casual( rate => 14.00 );
   $sally = new Employee::FullTime( salary => 50_000 );
...
   $sally->leave_entitlements(); #  {sick_leave => 56, annual_leave =>
+ 8.6}
   $mark->leave_entitlements(); #  {sick_leave => 56, annual_leave => 
+8.6}

Select or download this

bless($me, $ISA[0]) for $i (sin($have));