diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-07-21 02:17:43 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-07-21 02:17:43 -0400 |
commit | 2616052469b26e77c2f9eb161c7bffe78d3c35e8 (patch) | |
tree | 36215c91949fa73982317970ad1f52860b4918aa /t | |
parent | adddde6006f8e3b9c330361f0f1734b3f6072d01 (diff) | |
download | parse-keyword-2616052469b26e77c2f9eb161c7bffe78d3c35e8.tar.gz parse-keyword-2616052469b26e77c2f9eb161c7bffe78d3c35e8.zip |
improve the api a bit
Diffstat (limited to 't')
-rw-r--r-- | t/try/lib/Try.pm | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/t/try/lib/Try.pm b/t/try/lib/Try.pm index 6de5bf8..64e6148 100644 --- a/t/try/lib/Try.pm +++ b/t/try/lib/Try.pm @@ -24,26 +24,24 @@ sub try_parser { lex_read_space; - die "syntax error" unless lex_peek_unichar eq '{'; + die "syntax error" unless lex_peek(1) eq '{'; $try = parse_block; lex_read_space; - ensure_linestr_len(6); - if (linestr =~ /^catch\b/) { + if (lex_peek(6) =~ /^catch\b/) { lex_read_to(5); lex_read_space; - die "syntax error" unless lex_peek_unichar eq '{'; + die "syntax error" unless lex_peek(1) eq '{'; $catch = parse_block; } lex_read_space; - ensure_linestr_len(8); - if (linestr =~ /^finally\b/) { + if (lex_peek(8) =~ /^finally\b/) { lex_read_to(7); lex_read_space; - die "syntax error" unless lex_peek_unichar eq '{'; + die "syntax error" unless lex_peek(1) eq '{'; $finally = parse_block; } |