Changeset 8031 for lang/perl/App-MadEye

Timestamp:

03/17/08 15:43:54 (9 months ago)

Author:

tokuhirom

Message:

use moniker.

Files:

• lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Notify/IKC.pm (modified) (2 diffs)

lang/perl/App-MadEye/trunk/lib/App/MadEye/Plugin/Notify/IKC.pm

@@ -29 +29 @@
     my $text = '';
     while (my ($module, $targets) = each %$args) {
+        $module = _moniker($module);
         $text .= "= $module\n" .  truncstr(_format_target($targets), $cutoff_length) . "\n";
     }
@@ -43 +44 @@
     }
     $text;
+}
+
+sub _moniker {
+    my $module = shift;
+    $module =~ s/.+:://;
+    $module;
 }