Changeset 2977 for lang/perl/Class-Hookable

Timestamp:

12/10/07 15:44:07 (13 months ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Class-Hookable/trunk

Files:

• lib/Class/Hookable.pm (modified) (3 diffs)
• t/03_utility/11_delete_callback.t (added)

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

@@ -231 +231 @@
 }
 
+sub delete_hook {
+    my ( $self, $hook, @plugins ) = @_;
+
+    Carp::croak "Hook is not specified." if ( ! defined $hook );
+
+    if ( @plugins == 0 ) {
+        $self->hookable_all_hooks->{$hook} = [];
+    }
+    else {
+        for my $plugin ( @plugins ) {
+            $self->delete_plugin( $plugin, $hook );
+        }
+    }
+}
+
+sub delete_callback {
+    my ( $self, $callback, @hooks ) = @_;
+
+    Carp::croak "Callback is not CODE reference."
+        if ( ref $callback ne 'CODE' );
+
+    @hooks = $self->registered_hooks
+        if ( @hooks == 0 );
+
+    for my $hook ( @hooks ) {
+        my @new;
+        for my $action ( $self->registered_callbacks( $hook ) ) {
+            if ( $action->{'callback'} ne $callback ) {
+                push @new, $action;
+            }
+        }
+        $self->hookable_all_hooks->{$hook} = \@new;
+    }
+}
+
 sub delete_plugin {
     my ( $self, $object, @hooks ) = @_;
@@ -259 +294 @@
     }
 
-}
-
-sub delete_hook {
-    my ( $self, $hook, @plugins ) = @_;
-
-    Carp::croak "Hook is not specified." if ( ! defined $hook );
-
-    if ( @plugins == 0 ) {
-        $self->hookable_all_hooks->{$hook} = [];
-    }
-    else {
-        for my $plugin ( @plugins ) {
-            $self->delete_plugin( $plugin, $hook );
-        }
-    }
 }
 
@@ -690 +710 @@
 
 And when specifying a hook and plugin object (or class name) as arguments,
-specified plugins are deleted from a specified hook.
+specified plugins are deleted from specified hooks.
+
+=head2 delete_callback
+
+  $hook->delete_callback( $plugin->can('callback') );
+  $hook->delete_callback( \&callback => qw( hook.A hook.B ) );
+
+This method deletes a registered callback.
+
+Callback (CODE reference) is specified as the first argument,
+and some hook names are specified after that.
+
+When specifying a callback as an argument,
+all callbacks registered with the hook are deleted.
+
+And When specifying callback and hook names as arguments,
+specified callbacks are deleted from specified hooks.
 
 =head2 delete_plugin