File Coverage

blib/lib/Acme/Ane.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 1 3 33.3
total 29 31 93.5


line stmt bran cond sub pod time code
1             package Acme::Ane;
2 2     2   15985 use 5.008001;
  2         7  
  2         63  
3 2     2   8 use strict;
  2         2  
  2         53  
4 2     2   14 use warnings;
  2         3  
  2         63  
5              
6 2     2   7 use Exporter "import";
  2         3  
  2         311  
7              
8             our $VERSION = "0.01";
9             our @EXPORT_OK = qw( ane );
10              
11             sub new {
12 2     2 0 17 my ($class, $object) = @_;
13 2         7 bless {object => $object}, $class
14             }
15              
16 2     2 1 15 sub is_ane { 1; }
17              
18             sub ane {
19 1     1 0 570 __PACKAGE__->new($_[0]);
20             }
21              
22             sub AUTOLOAD {
23 4     4   625 my $self = shift;
24 4         7 my $meth = our $AUTOLOAD;
25 4         20 $meth =~ s/.*:://;
26 4         30 $self->{object}->$meth(@_);
27             }
28              
29             1;
30             __END__