diff options
author | Jesse Luehrs <doy@tozt.net> | 2009-10-04 01:38:52 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2009-10-04 01:38:52 -0500 |
commit | c7322b667b8e7b256101d7168e7cb6bc862e59bb (patch) | |
tree | 81c3ac85ffab8d0a68542a4234842e66a7de0794 /lib | |
parent | 2ad79606e53dfa84b18d704f2d889edca5a69fc2 (diff) | |
download | games-smtnocturne-fusion-c7322b667b8e7b256101d7168e7cb6bc862e59bb.tar.gz games-smtnocturne-fusion-c7322b667b8e7b256101d7168e7cb6bc862e59bb.zip |
add overload for prettyprinting demons
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Games/SMTNocturne/Fusion/Demon.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/Games/SMTNocturne/Fusion/Demon.pm b/lib/Games/SMTNocturne/Fusion/Demon.pm index f1439f0..859ad24 100644 --- a/lib/Games/SMTNocturne/Fusion/Demon.pm +++ b/lib/Games/SMTNocturne/Fusion/Demon.pm @@ -3,6 +3,11 @@ use Moose; use MooseX::ClassAttribute; use YAML::Any qw(Load); use Games::SMTNocturne::Fusion::Types; +use overload + '""' => sub { + my $self = shift; + '<' . $self->type . ' ' . $self->name . ' (' . $self->level . ')>' + }; with 'MooseX::Traits', 'MooseX::Role::Matcher' => { default_match => 'name' }; |