Catalyst Improving your Catalyst Application #48

MapMaker

package MapMaker;
use Moose;
use Moose::Util::TypeConstraints;

sub other { return 'right' if shift eq 'left'; return 'left' }

coerce 'ClassName' => from 'Str' => via { Class::MOP::load_class($_); $_ };
Infinity Interactive