use strict; use warnings;
use Test::More tests => 2;
#... pull in package SupportingPackage somehow 
#without running code that is in main ...
# then:
ok(my $obj = SupportingPackage->new);
can_ok($obj, 'do_something');
is($obj->do_something, 1);
can_ok($obj, 'do_something_else');
is($obj->do_something_else, 2);
# etc.