Use native traits

sorear · Apr 13, 2010 · 08587bd · 08587bd
1 parent ceb5097
commit 08587bd
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/lib/TAEB/AI/Behavioral/Personality.pm b/lib/TAEB/AI/Behavioral/Personality.pm
@@ -20,14 +20,14 @@ has behavior => (
 );
 
 has behaviors => (
-    metaclass => 'Collection::Hash',
+    traits    => ['Hash'],
     is        => 'ro',
     isa       => 'HashRef[TAEB::AI::Behavioral::Behavior]',
     lazy      => 1,
-    provides  => {
-        get    => 'get_behavior',
-        set    => '_set_behavior',
-        delete => '_delete_behavior',
+    handles   => {
+        get_behavior     => 'get',
+        _set_behavior    => 'set',
+        _delete_behavior => 'delete',
     },
     default   => sub {
         my $self = shift;