#!/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;}