From 6a0ded05309cd7a9eb388f3d4026cf9870e7201b Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 6 Oct 2009 16:23:35 -0500
Subject: add allowable times for the various deathstone fusions

---
 lib/Games/SMTNocturne/Fusion/KagutsuchiPhase.pm | 31 +++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 lib/Games/SMTNocturne/Fusion/KagutsuchiPhase.pm

(limited to 'lib/Games/SMTNocturne/Fusion/KagutsuchiPhase.pm')

diff --git a/lib/Games/SMTNocturne/Fusion/KagutsuchiPhase.pm b/lib/Games/SMTNocturne/Fusion/KagutsuchiPhase.pm
new file mode 100644
index 0000000..08f161f
--- /dev/null
+++ b/lib/Games/SMTNocturne/Fusion/KagutsuchiPhase.pm
@@ -0,0 +1,31 @@
+package Games::SMTNocturne::Fusion::KagutsuchiPhase;
+use Moose;
+use namespace::clean -except => 'meta';
+use overload '""' => sub {
+    my $self = shift;
+    '<Kagutsuchi: ' . join(', ', map { $_ == 0 ? 'new'
+                                     : $_ == 4 ? 'half'
+                                     : $_ == 8 ? 'full'
+                                     : $_ } $self->phases) . '>';
+};
+# use namespace::autoclean;
+
+has phases => (
+    traits   => ['Array'],
+    isa      => 'ArrayRef[Int]',
+    required => 1,
+    handles  => {
+        phases => 'elements',
+    },
+);
+
+around BUILDARGS => sub {
+    my $orig = shift;
+    my $class = shift;
+    my @phases = @_;
+    return $class->$orig(phases => \@phases);
+};
+
+__PACKAGE__->meta->make_immutable;
+
+1;
-- 
cgit v1.2.3-54-g00ecf