From 56de12a2999763ca14aefdf4ac1af1d527ccbc71 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Fri, 19 Jul 2013 01:59:18 -0400
Subject: start trying to implement some helper functions

these don't really work properly, but it's a start
---
 lib/Parse/Keyword.pm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib')

diff --git a/lib/Parse/Keyword.pm b/lib/Parse/Keyword.pm
index b2e2709..aca308f 100644
--- a/lib/Parse/Keyword.pm
+++ b/lib/Parse/Keyword.pm
@@ -25,6 +25,20 @@ sub import {
         };
         install_keyword_handler($sub, $keywords->{$keyword});
     }
+
+    my @helpers = qw(
+        lex_peek_unichar
+        lex_read_space
+        lex_read_to
+        parse_block
+        ensure_linestr_len
+        linestr
+    );
+
+    for my $helper (@helpers) {
+        no strict 'refs';
+        *{ $caller . '::' . $helper } = \&{ __PACKAGE__ . '::' . $helper };
+    }
 }
 
 1;
-- 
cgit v1.2.3-54-g00ecf