Fix remaining uses of MXAH

sorear · Apr 13, 2010 · 118f8ee · 118f8ee
1 parent d024278
commit 118f8ee
Show file tree

Hide file tree

Showing 4 changed files with 19 additions and 6 deletions.
diff --git a/lib/TAEB/Debug/Bot.pm b/lib/TAEB/Debug/Bot.pm
@@ -11,9 +11,13 @@ has paused => (
 );
 
 has step => (
-    metaclass => 'Counter',
+    traits => ['Counter'],
     is      => 'ro',
     default => -1,
+    handles => {
+        inc_step    => 'inc',
+        dec_step    => 'dec',
+    },
     trigger => sub {
         my $self = shift;
         my $val = shift;

diff --git a/lib/TAEB/Senses.pm b/lib/TAEB/Senses.pm
@@ -85,7 +85,8 @@ has turn => (
 
 has step => (
     is        => 'rw',
-    metaclass => 'Counter',
+    traits    => ['Counter'],
+    handles   => { inc_step => 'inc' },
 );
 
 has max_god_anger => (

diff --git a/lib/TAEB/World/Level.pm b/lib/TAEB/World/Level.pm
@@ -73,8 +73,12 @@ has monsters => (
 );
 
 has turns_spent_on => (
-    metaclass => 'Counter',
-    is        => 'ro',
+    traits  => ['Counter'],
+    is      => 'ro',
+    isa     => 'Int',
+    handles => {
+        inc_turns_spent_on => 'inc',
+    },
 );
 
 has pickaxe => (

diff --git a/lib/TAEB/World/Tile.pm b/lib/TAEB/World/Tile.pm
@@ -52,7 +52,10 @@ has color => (
 
 has stepped_on => (
     is        => 'ro',
-    metaclass => 'Counter',
+    traits    => ['Counter'],
+    handles   => {
+        inc_stepped_on => 'inc',
+    },
 );
 
 has x => (
@@ -69,7 +72,8 @@ has y => (
 
 has searched => (
     is        => 'ro',
-    metaclass => 'Counter',
+    traits    => ['Counter'],
+    handles   => { inc_searched => 'inc' },
 );
 
 has explored => (