Changeset 9563

Timestamp:

04/16/08 17:14:09 (5 years ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Class-Hookable/trunk

Files:

• lib/Class/Hookable.pm (modified) (3 diffs)
• t/40_utility/21_clear_methods.t (added)

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

@@ -357 +357 @@
 }
 
+sub clear_methods {
+    my ( $self, @methods ) = @_;
+    @methods = $self->registered_methods if ( scalar @methods <= 0 );
+
+    my $removed = {};
+    for my $method ( @methods ) {
+        next if ( ! exists $self->class_hookable_methods->{$method} );
+        $removed->{$method} = delete $self->class_hookable_methods->{$method};
+    }
+
+    return $removed;
+}
+
 sub run_hook {
     my ( $self, $hook, $args, $once, $callback ) = @_;
@@ -1148 +1161 @@
 
 When arguments were specified, all plugin registered with specified hooks are deleted,
-and when arguments are not specified, a plugin is deleted from all hooks.
+and when arguments are not specified, all plugins are deleted from all hooks.
 
 A return value of this method is such feeling:
@@ -1168 +1181 @@
 =head2 clear_methods
 
+  # clear 'method.A' and 'methodB'
+  $hook->clear_methods(qw( method.A method.B ));
+  
+  # clear all
+  $hook->clear_methods;
+  
+  my $removed = $hook->clear_methods;
+
+This method deletes all registered method.
+
+An deleted method name is specified as an argument.
+
+When arguments were specified, a plugin registered with specified method is deleted,
+and when arguments are not specified, all plugins are deleted from all methods.
+
+A return value of this method is such feeling:
+
+  $removed = {
+      'method.A' => { plugin => $pluginA, function => $pluginA->can('foo') },
+      'method.B' => { plugin => $pluginB, function => %pluginB->can('bar') },
+      ...
+  };
+
 =head1 ACCESSOR METOHDS