#!usr/bin/perl -w

use Class::DBI;
use Splash::Container;

warn "Splash::Container is a Class::DBI=" . ( UNIVERSAL::isa("Splash::Container", "Class::DBI") ? "yes" : "no") ;
warn "Splash::Container is an Ima::DBI=" . ( UNIVERSAL::isa("Splash::Container", "Ima::DBI") ? "yes" : "no") ;
warn "Class::DBI is a Class::DBI::__::Base=" . ( UNIVERSAL::isa("Class::DBI", "Class::DBI::__::Base") ? "yes" : "no") ;
warn "Class::DBI::__::Base is a Ima::DBI=" . ( UNIVERSAL::isa("Class::DBI::__::Base", "Ima::DBI") ? "yes" : "no") ;

warn "here are the isas for Class::DBI=" . join ";", @Class::DBI::ISA;
warn "here are the isas for Class::DBI::__::Base=" . join ";", @Class::DBI::__::Base::ISA;
warn "here are the isas for Ima::DBI=" . join ";", @Ima::DBI::ISA;

warn "here is VERSION for Class::DBI=" . $Class::DBI::VERSION;
warn "here is VERSION for Ima::DBI=" . $Ima::DBI::VERSION;
warn "here is VERSION for DBI=" . $DBI::VERSION;
warn "here is VERSION for DBD::Pg=" . $DBD::Pg::VERSION;

1;