diff options
-rw-r--r-- | lib/Bot/Games/Trait/Attribute/Formatted.pm | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/lib/Bot/Games/Trait/Attribute/Formatted.pm b/lib/Bot/Games/Trait/Attribute/Formatted.pm index 8eaa11c..ca4776f 100644 --- a/lib/Bot/Games/Trait/Attribute/Formatted.pm +++ b/lib/Bot/Games/Trait/Attribute/Formatted.pm @@ -1,6 +1,21 @@ package Bot::Games::Trait::Attribute::Formatted; use Moose::Role; +my %default_formatters = ( + 'ArrayRef' => sub { + my $arrayref = shift; + return join ', ', @$arrayref; + }, + 'Bool' => sub { + my $bool = shift; + return $bool ? 'true' : 'false'; + }, + 'Object' => sub { + my $obj = shift; + return "$obj"; + }, +); + # when the attribute is being constructed, the accessor methods haven't been # generated yet, so we need to store the formatter here, and then apply it # after the accessor methods exist @@ -17,6 +32,20 @@ before _process_options => sub { if exists($options->{formatter}) && !$options->{command}; }; +after _process_options => sub { + my $self = shift; + my ($name, $options) = @_; + return if exists $options->{formatter}; + if (exists $options->{type_constraint}) { + my $tc = $options->{type_constraint}; + for my $tc_type (keys %default_formatters) { + if ($tc->is_a_type_of($tc_type)) { + $self->formatter($default_formatters{$tc_type}); + } + } + } +}; + around accessor_metaclass => sub { my $orig = shift; my $self = shift; |