Select Code to Download

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

use strict; use warnings;
use Test::More tests => 2;
...
can_ok($obj, 'do_something_else');
is($obj->do_something_else, 2);
# etc.