File Coverage

blib/lib/Code/Perl/Base.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 12 14 85.7


line stmt bran cond sub pod time code
1             # $Header: /home/fergal/my/cvs/Code-Perl/lib/Code/Perl/Base.pm,v 1.1 2003/06/17 15:14:55 fergal Exp $
2              
3 1     1   13 use strict;
  1         2  
  1         99  
4              
5             package Code::Perl::Base;
6              
7             sub new
8             {
9 54     54 0 75 my $pkg = shift;
10              
11 54         146 my %args = @_;
12 54         126 my $self = bless \%args, $pkg;
13              
14 54         456 $self->init;
15              
16 54         389 return $self;
17             }
18              
19             sub init
20 53     53 0 64 {
21             }
22              
23             1;