Changeset 1744 for lang/perl/Class-Hookable

Timestamp:

11/18/07 13:48:35 (14 months ago)

Author:

nyarla

Message:

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

Files:

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

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

@@ -26 +26 @@
     my ( $self, $plugin, @hooks ) = @_;
 
-    Carp::croak "Plugin object is not blessed object."
-        if ( ! Scalar::Util::blessed($plugin) );
+    Carp::croak "Plugin object is not blessed object or class name"
+        if ( ref $plugin && ! Scalar::Util::blessed($plugin) );
 
     while ( my ( $hook, $callback ) = splice @hooks, 0, 2 ) {
@@ -59 +59 @@
         for my $action ( @{ $self->hooks->{$hook} } ) {
             my $plugin = $action->{'plugin'};
+            my $class  = ref $plugin || $plugin;
             if ( $is_class ) {
-                push @hooks, $hook if ( ref $plugin eq $object );
+                push @hooks, $hook if ( $class eq $object );
             }
             else {
@@ -97 +98 @@
         my @actions = ();
         for my $action ( $self->registered_plugins( $hook ) ) {
+            my $plugin  = $action->{'plugin'};
+            my $class   = ref $plugin || $plugin;
             if ( $is_class ) {
-                push @actions, $action if ( ref $action->{'plugin'} ne $object );
+                push @actions, $action if ( $class ne $object );
             }
             else {
-                push @actions, $action if ( $action->{'plugin'} ne $object );
+                push @actions, $action if ( $plugin ne $object );
             }
         }
@@ -438 +441 @@
 =head1 AUTHOR
 
-Naoki Okamura (Nyarla,) E<lt>thotep@nayrla.netE<gt>
+Naoki Okamura (Nyarla) E<lt>thotep@nayrla.netE<gt>
 
 =head1 LICENSE