File Coverage

blib/lib/Object/Instant.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 4 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 17 20 85.0


line stmt bran cond sub pod time code
1             package Object::Instant;
2              
3 1     1   12553 use strict;
  1         1  
  1         135  
4              
5             our $VERSION = '0.100';
6              
7             our $AUTOLOAD;
8              
9              
10             sub new {
11 2     2 0 747 my ($class, $cb) = @_;
12              
13 2 50       5 die "need a callback" if ref $cb ne 'CODE';
14              
15 2         3 my $self = { cb => $cb, };
16 2         4 bless $self, $class;
17              
18 2         3 return $self;
19             }
20              
21             sub AUTOLOAD {
22 2 50   2   234 die "$_[0] is not an object" if !ref $_[0];
23              
24 2         2 my $name = $AUTOLOAD;
25 2         8 $name =~ s/.*://;
26              
27 2         8 return $_[0]->{cb}->($_[0], $name, @_[1 .. $#_]);
28             }
29              
30              
31             1;
32              
33              
34              
35             __END__