#!/usr/local/bin/perl -w
#<ignore_during_test>
my $obj = SupportingPackage->new;
$obj->do_something;
$obj->do_something_else;
#</ignore_during_test>
package SupportingPackage;
sub new { bless {}, $_[0]; }
sub do_something { 1;}
sub do_something_else { 2;}

##</code><code>##

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.