Perl Moose testing, examples