Changeset 10264 for lang/perl/Sledge-Factory

Timestamp:

04/24/08 11:37:43 (5 years ago)

Author:

tokuhirom

Message:

name resolution with ->base_name

Location:

lang/perl/Sledge-Factory/trunk

Files:

• lib/Sledge/Plugin/Factory.pm (modified) (1 diff)
• t/03_base.t (added)

lang/perl/Sledge-Factory/trunk/lib/Sledge/Plugin/Factory.pm

@@ -10 +10 @@
     my ($app, $module) = @_;
 
-    my $base = Sledge::Utils::class2appclass($app);
+    my $base = $app->can('base_name') ? $app->base_name : Sledge::Utils::class2appclass($app);
     my $factory = "${base}::Factory::${module}";
     $factory->require or die $@;