Select Code to Download

#!/usr/bin/perl -w

...
is(scalar @{$file->[HPA::LT_Utils::File::_CP]}, 0) or $logger->debug(D
+umper($file)); # check internal state
is($file->output, '') or $logger->debug('the output() method seems to 
+have been borked - ', Dumper($file)); # check interface correctness
...

# test requirement X
is(....);
...
is(....);
is(....);
is(....);