Changeset 2097 for lang/perl/Class-Hookable

Timestamp:

11/28/07 11:08:33 (14 months ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Class-Hookable/trunk

Files:

• lib/Class/Hookable.pm (modified) (4 diffs)
• t/01_filter/01_hookable_filter_perfix.t (added)

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

@@ -56 +56 @@
 
     while ( my ( $method, $filter ) = splice @filters, 0, 2 ) {
+        Carp::croak "Invalid filter name. you can use [a-zA-Z_]"
+            if ( $method =~ m{[^a-zA-Z_]} );
+
         Carp::croak "filter is not CODE reference."
             if ( ref $filter ne 'CODE' );
@@ -62 +65 @@
     }
 
+}
+
+sub hookable_filter_prefix {
+    my $self = shift;
+
+    if ( @_ ) {
+        my $prefix = shift;
+        Carp::croak "Invalid filter prefix. you can use [a-zA-Z_]"
+            if ( $prefix =~ m{[^a-zA-Z_]} );
+        $self->hookable_stash->{'filter_prefix'} = $prefix;
+    }
+    else {
+        return $self->hookable_stash->{'filter_prefix'};
+    }
 }
 
@@ -443 +460 @@
 
   $hook->hookable_set_filter(
-      run_hook => \&myfilter,
+      register_hook => \&filterA
+      run_hook      => \&filterB,
   );
 
 This method registers the filter of hook and method.
+
+Arguments are specified by the order of C<'name' =E<gt> \&filter>.
+The character which can be used for the filter name is C<[a-zA-Z_]>.
 
 When registering a homonymous filter of the filter registered already,
@@ -466 +487 @@
 
 =back
+
+=head2 hookable_filter_prefix
+
+  $hook->hookable_filter_prefix('myfilter_prefix');
+
+This method is accessor of filter prefix;
+
+When finding filter in call_filer_method,
+prefix specified by this method is used.
+
+The character which can be used for the filter prefix is C<[a-zA-Z_]>.
 
 =head1 UTILITY METHODS