1 files changed, 53 insertions, 0 deletions
diff --git a/lib/Games/SMTNocturne/Fusion/Role/Deathstone.pm b/lib/Games/SMTNocturne/Fusion/Role/Deathstone.pm
index 01a1745..3d65cb2 100644
--- a/lib/Games/SMTNocturne/Fusion/Role/Deathstone.pm
+++ b/lib/Games/SMTNocturne/Fusion/Role/Deathstone.pm
@@ -1,6 +1,59 @@
 package Games::SMTNocturne::Fusion::Role::Deathstone;
 use Moose::Role;
+#use MooseX::ClassAttribute;
+use MooseX::Types::Moose qw(HashRef);
+use Memoize;
+use YAML::Any qw(Load);
+use Games::SMTNocturne::Fusion::Types qw(DemonType);
 use namespace::autoclean;
 with 'Games::SMTNocturne::Fusion::Role::NotNormallyFusable';
 
+=for doesnt_work_yet
+
+class_has required_target_types => (
+    traits  => ['Hash'],
+    isa     => HashRef[DemonType],
+    default => sub {
+        local $/ = undef;
+        my $data = <DATA>;
+        close DATA;
+        return Load($data);
+    },
+    handles => {
+        required_target_type_for => 'get',
+    },
+);
+
+=cut
+
+sub _required_target_types {
+    local $/ = undef;
+    my $data = <DATA>;
+    close DATA;
+    return Load($data);
+}
+memoize('_required_target_types', NORMALIZER => sub { "" });
+
+sub required_target_type_for {
+    my $class = shift;
+    return $class->_required_target_types->{$_[0]};
+}
+
+sub required_target_type {
+    my $self = shift;
+    return $self->required_target_type_for($self->name);
+}
+
 1;
+
+__DATA__
+---
+Black Rider: Night
+Daisoujou: Night
+Hell Biker: Fairy
+Matador: Yoma
+Pale Rider: Tyrant
+Red Rider: Fairy
+The Harlot: Tyrant
+Trumpeter: Tyrant
+White Rider: Yoma