Changeset 17837 for lang/perl/HTML-MobileJp-Filter

Timestamp:

08/18/08 12:55:04 (5 years ago)

Author:

fbis

Message:

lang/perl/HTML-MobileJp?-Filter/: 独自フィルターのサポート

Files:

• lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter.pm (modified) (1 diff)

lang/perl/HTML-MobileJp-Filter/trunk/lib/HTML/MobileJp/Filter.pm

@@ -23 +23 @@
     for my $config (@{ $self->filters }) {
         my $filter = do {
-            my $module = __PACKAGE__ ."::$config->{module}";
+            my $module = $config->{module} =~ m{^\+(.*)$} ? $1 : __PACKAGE__ ."::$config->{module}";
             Class::MOP::load_class($module);
             $module->new($config);