Changeset 2980 for lang/perl/Class-Hookable

Timestamp:

12/10/07 16:03:42 (13 months ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Class-Hookable/trunk

Files:

• lib/Class/Hookable.pm (modified) (2 diffs)
• t/03_utility/12_delete_method.t (added)

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

@@ -266 +266 @@
 }
 
+sub delete_method {
+    my ( $self, $method ) = @_;
+
+    Carp::croak "Method name is not specified."
+        if ( ! defined $method );
+
+    delete $self->hookable_all_methods->{$method};
+}
+
 sub delete_plugin {
     my ( $self, $object, @hooks ) = @_;
@@ -728 +737 @@
 specified callbacks are deleted from specified hooks.
 
+=head2 delete_method
+
+  $hook->delete_method('method.name');
+
+This method deleted a registered hookable method.
+The method name is specified as an argument.
+
 =head2 delete_plugin