#!perl -T use Test::More tests => 2; use lib qw{/home/hesco/sandbox/YMD-WWW-SamplePhoneCall/lib}; BEGIN { use_ok( 'YMD::WWW::DB' ); } use YMD::WWW::DB; can_ok('YMD::WWW::DB','connect','We can access the ->connect() method'); diag( "Testing YMD::WWW::DB $YMD::WWW::DB::VERSION, Perl $], $^X" );