every Command can show its last name

shelling · Jan 14, 2013 · e580346 · e580346
1 parent 4b5272f
commit e580346
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/lib/HTTP/Balancer/Role/Command.pm b/lib/HTTP/Balancer/Role/Command.pm
@@ -32,6 +32,22 @@ sub prepare {
     return $self;
 }
 
+=head2 command_name
+
+class and instance method
+
+returns the last name of current command, lowercase, separated with whitespace.
+
+=cut
+
+sub command_name {
+    my ($self, ) = @_;
+    my $ref = ref($self) || $self;
+    $ref =~ s{HTTP::Balancer::Command::}{};
+    $ref =~ s{::}{ }g;
+    return lc($ref);
+}
+
 no Moose::Role;
 
 1;