blob: 3d65cb244e19a6e859b45e1e9cffddf083bda209 (
plain) (
blame)
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
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
|