package testcases::base; use strict; use base qw(Test::Unit::TestCase); sub set_up { my $self=shift; return $self; } sub tear_down { my $self=shift; } 1;