package Foo ;
use base qw(Class::DBI) ;

use vars qw(@ISA @EXPORT) ;
require Exporter ;
push @ISA, qw(Exporter) ;
@EXPORT = qw/testfoo/ ;

sub testfoo {
    print "It works\n" ;
}