Select Code to Download

#in a time sensitive loop
$logger->isFlushPending(1);

...
  $logger->flush();
  $logger->isFlushPending(0);
}

#in a time sensitive loop
$logger->setFlushPending();

#later on
$logger->flushPending();

sub main::ManagersCostCenter::{
    my $Employee = shift;
    return $Employee->Manager->CostCenter;
}

package MyEmployee;
@ISA = 'Employee';

sub ManagersCostCenter {
    $self->Manager->CostCenter;
}

package MyEmployee;

sub ManagersCostCenter {
...
sub new { ... }
sub can { ... }
sub AUTOLOAD { ... }

sub Employee::ManagersCostCenter {
    $Employee->Manager->CostCenter;
}

$Employee->My::Employee::ManagersCostCenter;

sub My::Employee::ManagersCostCenter {
    $Employee->Manager->CostCenter;
}