blob: a8f04b24f607c4c4e52c27f800e570c45dfd96ea (
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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
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_state {
local $/ = undef;
my $data = <DATA>;
close DATA;
return Load($data);
}
memoize('_required_state', NORMALIZER => sub { "" });
sub required_target_type_for {
my $class = shift;
return $class->_required_state->{$_[0]}{type};
}
sub required_time_for {
my $class = shift;
my $time = $class->_required_state->{$_[0]}{time};
return Games::SMTNocturne::Fusion::KagutsuchiPhase->new(
$time->[0]..$time->[1]
);
}
sub required_target_type {
my $self = shift;
return $self->required_target_type_for($self->name);
}
sub required_time {
my $self = shift;
return $self->required_time_for($self->name);
}
1;
__DATA__
---
Black Rider:
time:
- 0
- 0
type: Night
Daisoujou:
time:
- 5
- 8
type: Night
Hell Biker:
time:
- 4
- 7
type: Fairy
Matador:
time:
- 1
- 4
type: Yoma
Pale Rider:
time:
- 0
- 0
type: Tyrant
Red Rider:
time:
- 0
- 0
type: Fairy
The Harlot:
time:
- 4
- 4
type: Tyrant
Trumpeter:
time:
- 8
- 8
type: Tyrant
White Rider:
time:
- 0
- 0
type: Yoma
|