allow specifying a type constraint name instead of a coderef as a formatter

1 files changed, 7 insertions, 0 deletions

diff --git a/lib/Bot/Games/Trait/Method/Formatted.pm b/lib/Bot/Games/Trait/Method/Formatted.pm
index 0145bea..7e0b986 100644
--- a/lib/Bot/Games/Trait/Method/Formatted.pm
+++ b/lib/Bot/Games/Trait/Method/Formatted.pm
@@ -10,6 +10,13 @@ has formatter => (
     } },
 );
 
+sub _munge_formatter {
+    my $self = shift;
+    my ($format) = @_;
+    return $format if ref($format) eq 'CODE';
+    return $self->associated_metaclass->formatter_for($format);
+}
+
 no Moose::Role;
 
 1;