The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;