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

use vars qw(@ISA @EXPORT) ;
require Exporter ;
unshift @ISA, qw(Exporter) ;
@EXPORT = qw/testgoo/ ;

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

1 ;