Perl (with Moose) implementations of the Gang of Four Design Patterns