[mcdave@maia ~perl -MClass::DBI -MClass::ISA -e 'foreach $f (Class::ISA::super_path("Class::DBI")) { print join(" ", $f, ${"${f}::VERSION"}, "\n" ) ;}'
Class::DBI::__::Base -1, set by base.pm 
Class::Accessor 0.34 
Class::Data::Inheritable 0.08 
Ima::DBI 0.35 
[mcdave@maia ~]$ perl -MClass::DBI -e 'print Class::DBI->can("import") ? "yes" : "no", "\n"'
yes

##</code><code>##

[mcdave@trowel ~]$ perl -MClass::DBI -MClass::ISA -e 'foreach $f (Class::ISA::super_path("Class::DBI")) { print join(" ", $f, ${"${f}::VERSION"}, "\n" ) ;}'
Class::DBI::__::Base -1, set by base.pm 
Class::Accessor 0.33 
Class::Data::Inheritable 0.08 
Ima::DBI 0.35 
[mcdave@trowel ~]$  perl -MClass::DBI -e 'if( Class::DBI->can("import") ) { print "yes" } else { print "no" }; print "\n"'
no