File Coverage

blib/lib/Class/PObject/Test.pm

Criterion	Covered	Total	%
statement	17	20	85.0
branch	1	2	50.0
condition	2	6	33.3
subroutine	5	6	83.3
pod	0	2	0.0
total	25	36	69.4

package Class::PObject::Test;

# Test.pm,v 1.5 2005/02/20 18:05:00 sherzodr Exp

use strict;
#use diagnostics;
use Carp;
use Class::PObject;
use vars ('$VERSION');

$VERSION = '1.02';

sub new {
    my $class = shift;
    $class = ref($class) || $class;

    my $self = bless {
        driver      => $_[0], # || 'file',
        datasource  => $_[1] # || 'data'
    }, $class;

    unless ( $self->{driver} && $self->{datasource} ) {
        croak "'driver' and 'datasource' are not set in the test script";
    }
    return $self;
}


sub run {
    my $self = shift;

    croak "You should override run() method in your test class";

}

1;
__END__