Changeset 4416

Timestamp:

01/11/08 13:57:29 (5 years ago)

Author:

nyarla

Message:

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

Location:

lang/perl/Class-Hookable/trunk

Files:

• lib/Class/Hookable.pm (modified) (1 diff)
• t/00_basic/06_hookable_all_filters.t (added)

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

@@ -49 +49 @@
     my $self = shift;
     return $self->hookable_stash->{'methods'};
+}
+
+sub hookable_all_filters {
+    my $self = shift;
+    return $self->hookable_stash->{'filters'};
 }