File Coverage

blib/lib/UNIVERSAL/Acme.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch	3	4	75.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	17	20	85.0

package UNIVERSAL::Acme;

$VERSION = '0.01';

my %ORIG;
sub import {
    my @SAVE = grep !/[A-Z]/, keys %UNIVERSAL::;
    $ORIG{$_} = \&{'UNIVERSAL::'.$_} for @SAVE;
    delete $UNIVERSAL::{$_} for @SAVE;
}

{ package UNIVERSAL;
  sub AUTOLOAD {
      (my $al = $AUTOLOAD) =~ s/.*:://;
      if ($IN_UA) {
          if (exists $ORIG{$al}) {
              goto &{$ORIG{$al}};
          } else {
              local *UNIVERSAL::AUTOLOAD;
              goto &$AUTOLOAD;
          }
      } else {
          local $IN_UA = 1;
          eval { $_[0]->$al(@_[1..$#_]) }
      }
  }
}

1;
__END__