Select Code to Download

package Object;
use Params::Validate qw(:all);
...
    my ($self, @messages) = @_;
    $self->{logger}->log($self, @messages);
};

package Object::Test;
use base qw(Test::Class);
...
    is($_[1], "hello", 'passed arg1');
    is($_[2], "there", 'passed arg2');
};