Changeset 15823

Timestamp:

07/15/08 06:29:42 (5 years ago)

Author:

daisuke

Message:

BUILDの引数はこう使うのか。

Files:

• lang/perl/Data-Valve/trunk/lib/Data/Valve.pm (modified) (2 diffs)

lang/perl/Data-Valve/trunk/lib/Data/Valve.pm

@@ -28 +28 @@
 );
 
-around 'new' => sub {
-    my ($next, $class, %args) = @_;
+__PACKAGE__->meta->make_immutable;
 
-    my $store = delete $args{bucket_store} || { module => 'Memory' };
+no Moose;
+
+sub BUILD {
+    my ($self, $args) = @_;
+
+    my $store = delete $args->{bucket_store} || { module => 'Memory' };
     if (! blessed $store) {
         my $module = $store->{module};
@@ -41 +45 @@
         $store = $module->new( %{ $store->{args} } );
     }
-
-    my $self = $next->($class, %args, bucket_store => $store);
-
-    return $self;
-};
-
-__PACKAGE__->meta->make_immutable;
-
-no Moose;
-
-sub BUILD {
-    my $self = shift;
-    $self->bucket_store->context($self);
-    $self->bucket_store->setup( $self );
+    $self->bucket_store($store);
+    $store->context($self);
+    $store->setup( $self );
 }