Simplify cperl moose snippets