File Coverage

blib/lib/Class/PObject/Test.pm
Criterion Covered Total %
statement 16 18 88.8
branch n/a
condition 4 7 57.1
subroutine 5 6 83.3
pod 0 2 0.0
total 25 33 75.7


line stmt bran cond sub pod time code
1             package Class::PObject::Test;
2              
3             # $Id: Test.pm,v 1.4 2003/09/09 00:11:53 sherzodr Exp $
4              
5 6     6   58 use strict;
  6         9  
  6         218  
6             #use diagnostics;
7 6     6   31 use Carp;
  6         10  
  6         484  
8 6     6   31 use Class::PObject;
  6         7  
  6         35  
9 6     6   30 use vars ('$VERSION');
  6         10  
  6         926  
10              
11             $VERSION = '1.01';
12              
13             sub new {
14 6     6 0 225 my $class = shift;
15 6   33     53 $class = ref($class) || $class;
16              
17 6   100     47 my $self = {
      50        
18             driver => $_[0] || 'file',
19             datasource => $_[1] || 'data'
20             };
21              
22 6         23 return bless ($self, $class)
23             }
24              
25              
26             sub run {
27 0     0 0   my $self = shift;
28              
29 0           croak "You should override run() method in your test class";
30              
31             }
32              
33             1;
34             __END__