Changeset 3205 for lang/perl/Class-Hookable

Timestamp:

12/17/07 14:34:39 (13 months ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Class-Hookable/trunk

Files:

• lib/Class/Hookable.pm (modified) (5 diffs)
• t/03_utility/13_delete_function.t (added)

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

@@ -275 +275 @@
 }
 
+sub delete_function {
+    my ( $self, $function, @methods ) = @_;
+
+    Carp::croak "Function is not CODE reference."
+        if ( ref $function ne 'CODE' );
+
+    @methods = $self->registered_methods
+        if ( @methods == 0 );
+
+    for my $method ( @methods ) {
+        my $action = $self->registered_function( $method );
+        if ( $action->{'function'} eq $function ) {
+            $self->delete_method( $method );
+        }
+    }
+}
+
 sub delete_plugin {
     my ( $self, $object, @hooks ) = @_;
@@ -369 +386 @@
 I thank Tatsuhiko Miyagawa and Plagger contributors.
 
+B<NOTE>:
+
+Class::Hookable is having substantial changes from version 0.02 to version0.03.
+When using Class::Hookable, please be careful.
+
+Please see Changes file about a change point.
+
 =head1 BASIC METHOD
 
@@ -731 +755 @@
 and some hook names are specified after that.
 
-When specifying a callback as an argument,
+When specifying only a callback as an argument,
 all callbacks registered with the hook are deleted.
 
@@ -743 +767 @@
 This method deleted a registered hookable method.
 The method name is specified as an argument.
+
+=head2 delete_function
+
+  $hook->delete_function( $plugin->can('function') );:
+  $hook->delete_function( \&function => qw( method.A method.B ) );
+
+This method deletes a registered function.
+
+Function (CODE reference) is specified as the first argument.
+and some method names are specified after that.
+
+When specifying only a function as an argument,
+all functions registered with the method are deleted.
+
+And when specifying function and method names as arguments,
+specified functions are deleted from specified methods. 
 
 =head2 delete_plugin
@@ -795 +835 @@
 all method of Class::Hookable is accessing hooks through this method.
 
-=head1 hookable_all_methods
+=head2 hookable_all_methods
 
   my $methods = $hook->hookable_all_methods;