gistfile1.txt

foreach my $method ( $poe_kernel->meta->get_method_list ) {               
  next unless $method =~ /^[a-z]/; #skip constants                        
  next if $method eq 'run' or $method eq 'meta' or $method eq 'singleton';
  around ( $method => sub {                                               
    my ( $sub, $self, @args ) = @_;                                       
    if ( Scalar::Util::reftype( $self ) eq 'ARRAY' ) {                    
      $self = __PACKAGE__->instance;                                      
    }                                                                     
    $sub->( $self, @args );                                               
  } );                                                                    
}