File Coverage

blib/lib/Pixie/Object.pm
Criterion Covered Total %
statement 13 14 92.8
branch 0 2 0.0
condition n/a
subroutine 5 5 100.0
pod 0 3 0.0
total 18 24 75.0


line stmt bran cond sub pod time code
1             package Pixie::Object;
2              
3 35     35   23245 use strict;
  35         212  
  35         1270  
4 35     35   189 use Carp qw( confess croak );
  35         57  
  35         7574  
5              
6             our $VERSION = "2.08_02";
7              
8             sub new {
9 122     122 0 15970 my $class = shift;
10 122         439 my $self = bless {}, $class;
11 122         612 $self->init( @_ );
12 122         906 return $self;
13             }
14              
15 31     31 0 145 sub init { $_[0]; }
16              
17             sub subclass_responsibility {
18 14     14 0 927 my $self = shift;
19 14         245 croak( (caller(1))[3], " not implemented for ", ref($self) );
20 0 0         return wantarray ? @_ : $_[-1];
21             }
22              
23             1;