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

#later on
if($logger->isFlushPending) {
  $logger->flush();
  $logger->isFlushPending(0);
}

##</code><code>##

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

#later on
$logger->flushPending();

##</code><code>##

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

##</code><code>##

package MyEmployee;
@ISA = 'Employee';

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

##</code><code>##

package MyEmployee;

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

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

##</code><code>##

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

##</code><code>##

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

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