Changeset 2120 for lang/perl/Class-Hookable/trunk/lib/Class/Hookable.pm

Timestamp:

11/28/07 17:33:25 (6 years ago)

Author:

nyarla

Message:

lang/perl/Class-Hookable: I changed the specification of the registered_hooks method.

Files:

• lang/perl/Class-Hookable/trunk/lib/Class/Hookable.pm (modified) (4 diffs)

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

@@ -115 +115 @@
 
 sub registered_hooks {
-    my ( $self, $object ) = @_;
-
-    if ( ref $object && ! Scalar::Util::blessed( $object ) ) {
-        Carp::croak "Argument is not blessed object or class name.";
-    }
-
-    my $is_class = ( ! ref $object ) ? 1 : 0 ;
-    my @hooks = ();
-
-    for my $hook ( keys %{ $self->hookable_all_hooks } ) {
-        for my $action ( @{ $self->hookable_all_hooks->{$hook} } ) {
-            my $plugin = $action->{'plugin'};
-            my $class  = ref $plugin || $plugin;
-            if ( $is_class ) {
-                push @hooks, $hook if ( $class eq $object );
-            }
-            else {
-                push @hooks, $hook if ( $plugin eq $object );
+    my $self = shift;
+
+    my @hooks;
+
+    if ( @_ > 0 ) {
+        my $object = shift;
+
+        if ( ref $object && ! Scalar::Util::blessed( $object ) ) {
+            Carp::croak "Argument is not blessed object or class name.";
+        }
+
+        my $is_class = ( ! ref $object ) ? 1 : 0 ;
+
+        for my $hook ( keys %{ $self->hookable_all_hooks } ) {
+            for my $action ( @{ $self->hookable_all_hooks->{$hook} } ) {
+                my $plugin = $action->{'plugin'};
+                my $class  = ref $plugin || $plugin;
+                if ( $is_class ) {
+                    push @hooks, $hook if ( $class eq $object );
+                }
+                else {
+                    push @hooks, $hook if ( $plugin eq $object );
+                }
             }
         }
+    }
+    else {
+        @hooks = keys %{ $self->hookable_all_hooks };
     }
 
@@ -516 +524 @@
   my @hooks = $hook->registered_hooks( 'ClassName' );
 
-This method returns hooks with which a plugin is registered.
-An argument is plugin object or class name.
+This method returns a registered hook name.
+
+When calling without arguments, all registered hook name is returned.
+and when specifying plugin obejct (or Class name) as an argument,
+the hook name with which a plugin is registered is returned.
 
 =head2 registered_plugins
@@ -532 +543 @@
 
   $hook->delete_plugin( $plugin );
-  $hook->delete_plugin( 'ClassName', 'hook.A', 'hook.B' );
+  $hook->delete_plugin( ClassName => qw( hook.A hook.B ) );
 
 This method delete a registered plugin.
@@ -545 +556 @@
 
   $hook->delete_hook( 'hook.name' );
-  $hook->delete_hook( 'hook.name', $pluginA, 'ClassName' );
+  $hook->delete_hook( 'hook.name' => ( $pluginA, 'ClassName' ) );
 
 This method delete a registered hook.