#!/usr/bin/perl

use strict;
use diagnostics; # use warnings works

use lib ".";
use MyTable;

##</code><code>##

package MyTable;
use base 'MyDatabase';

1;

##</code><code>##

package MyDatabase;
use base 'Class::DBI';

1;

##</code><code>##

Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Uncaught exception from user code:
        Can't locate DBI/db.pm in @INC (@INC contains: . /usr/local/lib/perl5/5.6.1/sun4-
solaris /usr/local/lib/perl5/5.6.1 /usr/local/lib/perl5/site
_perl/5.6.1/sun4-
solaris /usr/local/lib/perl5/site_perl/5.6.1 /usr/local/lib/
perl5/site_perl/5.6.0/sun4-
solaris /usr/local/lib/perl5/site_perl/5.6.0 /usr/local/lib/
perl5/site_perl/5.005/sun4-
solaris /usr/local/lib/perl5/site_perl/5.005 /usr/local/lib/
perl5/site_perl) at (eval 6) line 3.
        eval 'require DBI::db
;' called at /usr/local/lib/perl5/5.6.1/base.pm line 59
        base::import('base', 'DBI::db') called 
at /usr/local/lib/perl5/site_perl/5.6.1/Ima/DBI.pm line 645
        Ima::DBI::db::BEGIN() called at DBI/db.pm line 0
        eval {...} called at DBI/db.pm line 0
        require Ima/DBI.pm called at (eval 5) line 3
        eval 'require Ima::DBI
;' called at /usr/local/lib/perl5/5.6.1/base.pm line 59
        base::import('base', 'Class::Accessor', 'Class::Data::Inheritable', 'Ima
::DBI') called 
at /usr/local/lib/perl5/site_perl/5.6.1/Class/DBI.pm line 6
        Class::DBI::__::Base::BEGIN() called at DBI/db.pm 
line 0
        eval {...} called at DBI/db.pm line 0
        require Class/DBI.pm called at (eval 3) line 3
        eval 'require Class::DBI
;' called at /usr/local/lib/perl5/5.6.1/base.pm line 59