lib/Bot/Games/Trait/Method/Formatted.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

package Bot::Games::Trait::Method::Formatted;
use Moose::Role;

has formatter => (
    is      => 'rw',
    isa     => 'CodeRef',
    default => sub { sub {
        my $self = shift;
        my ($to_print) = @_;
        if (blessed $to_print) {
            $to_print = "$to_print";
        }
        elsif (ref($to_print) && ref($to_print) eq 'ARRAY') {
            $to_print = join ', ', @$to_print;
        }
        elsif (!$to_print) {
            $to_print = 'false';
        }
        return $to_print;
    } },
);

no Moose::Role;

1;