Changeset 11211 for lang/perl/Punc

Timestamp:

05/06/08 19:32:34 (7 months ago)

Author:

mizzy

Message:

Punc::Util をなくして Punc->context を使うようにした

Location:

lang/perl/Punc/trunk/lib/Punc

Files:

• Slave/Module.pm (modified) (2 diffs)
• Util.pm (deleted)

lang/perl/Punc/trunk/lib/Punc/Slave/Module.pm

@@ -3 +3 @@
 use strict;
 use warnings;
-use Punc::Util;
 use Moose;
 use Module::Pluggable;
@@ -36 +35 @@
         next unless $default_for;
         my ( $fact ) = keys %$default_for;
-        if ( grep { Punc::Util->fact($fact) =~ /$_/i } @{ $default_for->{$fact} } ) {
+        if ( grep { Punc->context->fact($fact) =~ /$_/i } @{ $default_for->{$fact} } ) {
             $module_to_delegate = $module;
         }