File Coverage

blib/lib/Class/Anonymous/Instance.pm
Criterion Covered Total %
statement 15 15 100.0
branch 2 2 100.0
condition n/a
subroutine 6 7 85.7
pod 0 2 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1             package Class::Anonymous::Instance;
2              
3 4     4   31 use strict;
  4         5  
  4         92  
4 4     4   17 use warnings;
  4         8  
  4         88  
5 4     4   18 use Carp ();
  4         7  
  4         694  
6              
7             sub AUTOLOAD {
8 24     24   7583 my $self = $_[0];
9 24         104 my ($name) = our $AUTOLOAD =~ /::(\w+)$/;
10 24 100       66 my $func = $self->($name) or Carp::croak "Instance of anonymous class has no method $name";
11 23         64 goto $func;
12             }
13              
14       0     sub DESTROY { }
15              
16 2     2 0 551 sub can { $_[0]->($_[1]) }
17              
18 28     28 0 2444 sub isa { goto $_[0]->('isa') }
19              
20             1;
21