Changeset 10255

Timestamp:

04/24/08 10:29:38 (5 years ago)

Author:

tokuhirom

Message:

うげー。メソッド名を変えるのわすれてたし。

Location:

lang/perl/Sledge-Factory/trunk

Files:

• lib/Sledge/Factory.pm (modified) (2 diffs)
• lib/Sledge/Plugin/Factory.pm (modified) (3 diffs)
• t/01_foo.t (modified) (1 diff)
• t/02_cached.t (modified) (1 diff)

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

@@ -40 +40 @@
 =head1 NAME
 
-Sledge::Factory - the adaptor.
+Sledge::Factory - the factory.
 
 =head1 SYNOPSIS
@@ -60 +60 @@
 =head1 DESCRIPTION
 
-Sledge::Factory is adaptor module for Sledge.
+Sledge::Factory is factory module for Sledge.
 
 This is inspire of L<Catalyst::Model::Adaptor>

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

@@ -3 +3 @@
 use warnings;
 use base qw/Exporter/;
-our @EXPORT = qw/adaptor/;
+our @EXPORT = qw/factory/;
 use Sledge::Utils;
 use UNIVERSAL::require;
 
-sub adaptor {
+sub factory {
     my ($app, $module) = @_;
 
     my $base = Sledge::Utils::class2appclass($app);
-    my $adaptor = "${base}::Factory::${module}";
-    $adaptor->require or die $@;
+    my $factory = "${base}::Factory::${module}";
+    $factory->require or die $@;
 
-    if ($adaptor->__per_context) {
-        $app->{"__Factory::$module"} ||= _create_instance( $app, $module, $adaptor );
+    if ($factory->__per_context) {
+        $app->{"__Factory::$module"} ||= _create_instance( $app, $module, $factory );
     } else {
-        _create_instance( $app, $module, $adaptor );
+        _create_instance( $app, $module, $factory );
     }
 }
 
 sub _create_instance {
-    my ($app, $module, $adaptor) = @_;
+    my ($app, $module, $factory) = @_;
 
     my $config = $app->create_config->{"Factory::$module"};
 
-    my $constructor = $adaptor->__constructor;
-    my $klass = $adaptor->__class;
+    my $constructor = $factory->__constructor;
+    my $klass = $factory->__class;
     $klass->require or die $@;
-    $klass->$constructor( $adaptor->__prepare_arguments->($app, $config) );
+    $klass->$constructor( $factory->__prepare_arguments->($app, $config) );
 }
 
@@ -37 +37 @@
 =head1 NAME
 
-Sledge::Plugin::Factory - adaptor
+Sledge::Plugin::Factory - factory
 
 =head1 SYNOPSIS
@@ -46 +46 @@
     sub dispatch_index {
         my $self = shift;
-        $self->adaptor('TheSchwartz')->insert($job);
-        $self->adaptor('TheSchwartz')->list_jobs({funcname => 'MyApp::Worker'});
+        $self->factory('TheSchwartz')->insert($job);
+        $self->factory('TheSchwartz')->list_jobs({funcname => 'MyApp::Worker'});
     }
 

lang/perl/Sledge-Factory/trunk/t/01_foo.t

@@ -10 +10 @@
 sub dispatch_foo {
     my $self = shift;
-    $self->adaptor('POPO')->foo;
+    $self->factory('POPO')->foo;
 }
 

lang/perl/Sledge-Factory/trunk/t/02_cached.t

@@ -10 +10 @@
 sub dispatch_foo {
     my $self = shift;
-    is $self->adaptor('POPO')->bar, 1;
-    is $self->adaptor('POPO')->bar, 2;
+    is $self->factory('POPO')->bar, 1;
+    is $self->factory('POPO')->bar, 2;
 
-    is $self->adaptor('POPOCached')->bar, 3;
-    is $self->adaptor('POPOCached')->bar, 3; # not incremented here.
+    is $self->factory('POPOCached')->bar, 3;
+    is $self->factory('POPOCached')->bar, 3; # not incremented here.
 }