Changeset 2279 for lang/perl/Class-Hookable

Timestamp:

12/02/07 11:40:33 (13 months ago)

Author:

nyarla

Message:

lang/perl/Class-Hookable: I implemented register_method method.

Location:

lang/perl/Class-Hookable/trunk

Files:

• lib/Class/Hookable.pm (modified) (4 diffs)
• t/02_register/01_register_method.t (added)

lang/perl/Class-Hookable/trunk/lib/Class/Hookable.pm

@@ -45 +45 @@
 }
 
+sub hookable_all_methods {
+    my $self = shift;
+    return $self->hookable_stash->{'methods'};
+}
+
 sub hookable_set_filter {
     my ( $self, @filters ) = @_;
@@ -110 +115 @@
 
             push @{ $self->hookable_all_hooks->{$hook} }, $action;
+        }
+    }
+}
+
+sub register_method {
+    my ( $self, $plugin, @methods ) = @_;
+
+    Carp::croak "Plugin object is not blessed obejct or class name."
+        if ( ref $plugin && ! Scalar::Util::blessed($plugin) );
+
+    while ( my ( $method, $function ) = splice @methods, 0, 2 ) {
+        Carp::croak "Function is not CODE reference."
+            if ( ref $function ne 'CODE' );
+
+        my $action = {
+            plugin      => $plugin,
+            function    => $function,
+        };
+
+        if ( $self->hookable_call_filter( 'register_method', $method, $action ) ) {
+            $self->hookable_all_methods->{$method} = $action;
         }
     }
@@ -319 +345 @@
 =back
 
+=head2 register_method
+
+  $hook->register_method(
+      $plugin,
+      'method.A' => $plugin->can('methodA'),
+      'method.B' => $plugin->can('methodB'),
+  );
+
+This method registers a plugin and functions with the methods.
+
+The specification of arguments is same as L<"register_hook"> method.
+
+The method is different from B<hook> and only a set of plugin and function are kept about one method.
+When specifying the method name which exists already, the old method is replaced with the new method.
+
+Only when C<$hook-E<gt>hookable_call_filter( 'register_method', $method, $action )> has returned truth,
+this method registers a plugin and function.
+
+Please see L<"hookable_call_filter"> about C<$hook-E<gt>hookable_call_filter>.
+
+B<Arguments of C<$hook-E<gt>hookable_call_filter>>:
+
+=over 3
+
+=item C<'register_method'>
+
+C<'run_hook'> is filter name.
+
+=item C<$method>
+
+The method name specified as the register_method method.
+
+=item C<$action>
+
+  my ( $plugin, $function ) = @{ $action }{qw( plugin function )};
+
+The hash reference including plugin and function.
+
+=back
+
 =head1 CALL METHODS
 
@@ -601 +667 @@
 all method of Class::Hookable is accessing hooks through this method.
 
+=head1 hookable_all_methods
+
+  my $methods = $hook->hookable_all_methods;
+
+This method is accesor to hash reference which keeps methods.
+all method of Class::Hookable is accessing methods through this method.
+
 =head1 AUTHOR