Select Code to Download

#!/usr/bin/perl
# Piece_m.pl -- 'Moose' version of Piece.pm
...
is( $wk->id, 'WK', '... got the right id for wk' );
my @methods = Piece->meta->get_method_list();
print Dumper(@methods);