Changeset 1878 for lang/perl/Class-Hookable

Timestamp:

11/21/07 13:29:47 (14 months ago)

Author:

nyarla

Message:

lang/perl/Class-Hookable: I changed method names( filter_plugin -> filter_register_hook, dispatch_plugin -> filter_run_hook ). and I classified test files and POD.

Location:

lang/perl/Class-Hookable/trunk

Files:

• Changes (modified) (1 diff)
• Makefile.PL (modified) (1 diff)
• lib/Class/Hookable.pm (modified) (10 diffs)
• t/01_register/00_register_hook.t (modified) (1 diff)
• t/03_call/00_run_hook.t (modified) (1 diff)

lang/perl/Class-Hookable/trunk/Changes

@@ -1 +1 @@
 Revision history for Perl extension Class::Hookable
+
+0.02  Wed Nov 11 13:00:00 JST 2007
+        * renamed 2 methods
+          filter_plugin     -> filter_register_hook
+          dispatch_plugin   -> filter_run_hook
+        - classified test files and POD.
+        - modified POD.
 
 0.01  Sat Nov  3 15:08:06 2007

lang/perl/Class-Hookable/trunk/Makefile.PL

@@ -9 +9 @@
 build_requires 'Test::More' ;
 
-tests 't/*.t';
+tests 't/*.t t/*/*.t';
 
 auto_include;

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

@@ -7 +7 @@
 use Scalar::Util();
 
-our $VERSION = '0.01';
+our $VERSION = '0.02';
 
 sub new { bless {}, shift }
@@ -35 +35 @@
         };
 
-        if ( $self->filter_plugin( $hook, $action ) ) {
+        if ( $self->filter_register_hook( $hook, $action ) ) {
             $self->hooks->{$hook} = []
                 if ( ref $self->hooks->{$hook} ne 'ARRAY' );
@@ -44 +44 @@
 }
 
-sub filter_plugin { 1 }
+sub filter_register_hook { 1 }
 
 sub registered_hooks {
@@ -141 +141 @@
 
     for my $action ( $self->registered_plugins( $hook ) ) {
-        if ( $self->dispatch_plugin( $hook, $args, $action ) ) {
+        if ( $self->filter_run_hook( $hook, $args, $action ) ) {
             my $plugin = $action->{'plugin'};
             my $result = $action->{'callback'}->( $plugin, $context, $args );
@@ -163 +163 @@
 }
 
-sub dispatch_plugin { 1 }
+sub filter_run_hook { 1 }
 
 sub context {
@@ -210 +210 @@
 
 This module was made by making reference to the hook mechanism of L<Plagger>.
-I thank L<Tatsuhiko miyagawa|http://search.cpan.org/~miyagawa/> who made wonderful application.
+I thank Tatsuhiko Miyagawa who made wonderful application.
 
 =head1 BASIC METHOD
@@ -236 +236 @@
 and one after that is specified by the order of C<'hook' =E<gt> \&callabck>.
 
-=head2 filter_plugin
-
-  sub filter_plugin {
+=head2 filter_register_hook
+
+  sub filter_register_hook {
       my ( $self, $hook, $action ) = @_;
       my ( $plugin, $callback ) = @{ $action }{qw( plugin callback )};
@@ -394 +394 @@
 This method is an alias of C<$hook-E<gt>run_hook( $hook, $args, 1, \&callback )>.
 
-=head2 dispatch_plugin
-
-  sub dispatch_plugin {
+=head2 filter_run_hook
+
+  sub filter_run_hook {
       my ( $self, $hook, $args, $action ) = @_;
       my ( $plugin, $callabck ) = @{ $action }{qw( plugin callback )};
@@ -402 +402 @@
   }
 
-When calling a hook, this method does a dispatch of a plugin.
+When calling a hook, this method is filtered a plugin.
 Argument are passed by the order of C<$hook>, C<$args>, C<$action>.
 
@@ -449 +449 @@
 =head1 AUTHOR
 
-Naoki Okamura (Nyarla) E<lt>thotep@nayrla.netE<gt>
+Original idea by Tatsuhiko Miyagawa L<http://search.cpan.org/~miyagawa> in L<Plagger>
+
+Code by Naoki Okamura (Nyarla) E<lt>thotep@nayrla.netE<gt>
 
 =head1 LICENSE

lang/perl/Class-Hookable/trunk/t/01_register/00_register_hook.t

@@ -27 +27 @@
 {
     no warnings 'redefine';
-    *Class::Hookable::filter_plugin = sub { 0 };
+    *Class::Hookable::filter_register_hook = sub { 0 };
 }
 

lang/perl/Class-Hookable/trunk/t/03_call/00_run_hook.t

@@ -63 +63 @@
 
 no warnings 'redefine';
-*Class::Hookable::dispatch_plugin = sub {
+*Class::Hookable::filter_run_hook = sub {
     my ( $self, $hook, $args, $action ) = @_;