summaryrefslogtreecommitdiffstats
path: root/lib/Games/SMTNocturne/Fusion/Demon.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Games/SMTNocturne/Fusion/Demon.pm')
-rw-r--r--lib/Games/SMTNocturne/Fusion/Demon.pm15
1 files changed, 8 insertions, 7 deletions
diff --git a/lib/Games/SMTNocturne/Fusion/Demon.pm b/lib/Games/SMTNocturne/Fusion/Demon.pm
index 859ad24..aec8f43 100644
--- a/lib/Games/SMTNocturne/Fusion/Demon.pm
+++ b/lib/Games/SMTNocturne/Fusion/Demon.pm
@@ -1,8 +1,9 @@
package Games::SMTNocturne::Fusion::Demon;
use Moose;
use MooseX::ClassAttribute;
+use MooseX::Types::Moose qw(ArrayRef HashRef Int Str);
use YAML::Any qw(Load);
-use Games::SMTNocturne::Fusion::Types;
+use Games::SMTNocturne::Fusion::Types qw(DemonType FusionType SMTDemon);
use overload
'""' => sub {
my $self = shift;
@@ -14,7 +15,7 @@ with 'MooseX::Traits',
class_has _list => (
is => 'ro',
- isa => 'ArrayRef[HashRef]',
+ isa => ArrayRef[HashRef],
lazy => 1,
default => sub {
local $/ = undef;
@@ -26,7 +27,7 @@ class_has _list => (
class_has list => (
is => 'ro',
- isa => 'ArrayRef[Games::SMTNocturne::Fusion::Demon]',
+ isa => ArrayRef[SMTDemon],
lazy => 1,
default => sub {
my $meta = shift;
@@ -43,25 +44,25 @@ class_has list => (
has name => (
is => 'ro',
- isa => 'Str',
+ isa => Str,
required => 1,
);
has level => (
is => 'ro',
- isa => 'Int',
+ isa => Int,
required => 1,
);
has type => (
is => 'ro',
- isa => 'Games::SMTNocturne::Fusion::DemonType',
+ isa => DemonType,
required => 1,
);
has fusion_type => (
is => 'ro',
- isa => 'Games::SMTNocturne::Fusion::FusionType',
+ isa => FusionType,
required => 1,
);