From: Graham Knop <haarg@haarg.org>
Date: Mon, 17 Jun 2013 03:58:31 +0000 (-0400)
Subject: dispatch to parser for some common functions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=809ae6733eb6a37b542439c8cbb7a6fce5052a5c;p=p5sagit%2FFilter-Keyword.git

dispatch to parser for some common functions
---

diff --git a/lib/Filter/Keyword.pm b/lib/Filter/Keyword.pm
index b48ebb4..aa0d798 100644
--- a/lib/Filter/Keyword.pm
+++ b/lib/Filter/Keyword.pm
@@ -53,7 +53,15 @@ sub remove {
   $self->clear_globref;
 }
 
-has keyword_parser => (is => 'rw', weak_ref => 1, clearer => 1);
+has keyword_parser => (
+  is => 'rw',
+  weak_ref => 1,
+  clearer => 1,
+  handles => [
+    'match_source',
+    'current_match',
+  ],
+);
 
 has target_package => (is => 'ro', required => 1);
 has keyword_name   => (is => 'ro', required => 1);