From 9fcb3bc29dfd429f521c4e40452197dc364310c3 Mon Sep 17 00:00:00 2001 From: Francois Marier Date: Thu, 5 Aug 2010 20:52:16 -0400 Subject: Imported Upstream version 0.07.00 --- lib/CIL/Command.pm | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 lib/CIL/Command.pm (limited to 'lib/CIL/Command.pm') diff --git a/lib/CIL/Command.pm b/lib/CIL/Command.pm new file mode 100644 index 0000000..194047b --- /dev/null +++ b/lib/CIL/Command.pm @@ -0,0 +1,17 @@ +package CIL::Command; + +use strict; +use warnings; + +sub name { + my $self = shift; + + my $name = lc( ref $self || $self ); + + $name =~ s/^CIL::Command:://i; + + return $name; +} + + +'end of package CIL::Command'; -- cgit v1.2.3