Select Code to Download

package DeepThought;

...
    my ($self, $n) = @_;
    print "$self says the answer is $n\n";
};

use Test::More tests => 2;

...
    $o->foo();
    ok($ok, 'foo called bar');
};

package Foo;
use CGI;
...
    my $class = shift;
    bless {cgi => CGI->new}, $class;
};

use Test::More tests => 1;

...
    my $o = Foo->new;
    ok($called, 'Foo->new called CGI->new');
};