Changeset 2391 for lang/perl/Class-Hookable

Timestamp:

12/04/07 11:48:17 (13 months ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Class-Hookable/trunk

Files:

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

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

@@ -219 +219 @@
 }
 
+sub registered_function {
+    my ( $self, $method ) = @_;
+
+    Carp::croak "Method name is not specified"
+        if ( ! $method );
+
+    my $action = $self->hookable_all_methods->{$method};
+
+    return if ( ! $action );
+    return $action;
+}
+
 sub delete_plugin {
     my ( $self, $object, @hooks ) = @_;
@@ -638 +650 @@
 
 This method returns plugin and callback registered with a hook.
+
 Return value is a list of hash reference including plugin and callback.
+When there are no registered plugin and callback, this method returns empty list.
 
 =head2 registered_methods
@@ -650 +664 @@
 and When specifying plugin object (or class name) as an arguments,
 the method name with which a plugin is registered is returned.
+
+=head2 registered_function
+
+  my $action = $hook->registered_function('method.name');
+  my ( $plugin, $function ) = @{ $action }{qw( plugin function )};
+
+This method returns plugin and callback registered with a method.
+
+Return value is a hash reference including plugin and callback.
+When nothing is registered, no this methods are returned.
 
 =head2 delete_plugin