s/$class/$caller/g

1 files changed, 5 insertions, 5 deletions

diff --git a/lib/Bot/Games/OO/Game.pm b/lib/Bot/Games/OO/Game.pm
index 218eb32..5820b80 100644
--- a/lib/Bot/Games/OO/Game.pm
+++ b/lib/Bot/Games/OO/Game.pm
@@ -2,15 +2,15 @@ package Bot::Games::OO::Game;
 use Bot::Games::OO ();
 
 sub command {
-    my $class = shift;
+    my $caller = shift;
     my $name = shift;
     my $code;
     $code = shift if ref($_[0]) eq 'CODE';
     my %args = @_;
 
-    my $method_meta = $class->meta->get_method($name);
+    my $method_meta = $caller->meta->get_method($name);
     my $superclass = Moose::blessed($method_meta)
-                  || $class->meta->method_metaclass;
+                  || $caller->meta->method_metaclass;
     my @method_metaclass_roles = ('Bot::Games::Trait::Method::Command');
     push @method_metaclass_roles, 'Bot::Games::Trait::Method::Formatted'
         if $args{formatter};
@@ -25,10 +25,10 @@ sub command {
     else {
         $method_meta = $method_metaclass->name->wrap(
             $code,
-            package_name => $class,
+            package_name => $caller,
             name         => $name,
         );
-        $class->meta->add_method($name, $method_meta);
+        $caller->meta->add_method($name, $method_meta);
     }
     for my $attr (map { $_->meta->get_attribute_list } @method_metaclass_roles) {
         next unless exists $args{$attr};