diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-19 01:59:18 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-19 01:59:59 -0400 |
commit | 56de12a2999763ca14aefdf4ac1af1d527ccbc71 (patch) | |
tree | d612dff83690f7fe722a1d44039ff582f7786e8e /lib | |
parent | c4af186f76844b38e775e3454545acc84b4f144a (diff) | |
download | parse-keyword-56de12a2999763ca14aefdf4ac1af1d527ccbc71.tar.gz parse-keyword-56de12a2999763ca14aefdf4ac1af1d527ccbc71.zip |
start trying to implement some helper functions
these don't really work properly, but it's a start
Diffstat (limited to 'lib')
-rw-r--r-- | lib/Parse/Keyword.pm | 14 |
1 files changed, 14 insertions, 0 deletions
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; |