From ca4b8625890142ce43b3b4eaa36f58c28263df56 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 21 Jul 2013 01:15:36 -0400
Subject: test statement form

---
 t/basic.t | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/t/basic.t b/t/basic.t
index 119e586..8171972 100644
--- a/t/basic.t
+++ b/t/basic.t
@@ -16,4 +16,26 @@ use Test::More;
     ::is_deeply([bar], [1, 2, 3]);
 }
 
+{
+    package Bar;
+
+    use Parse::Keyword { baz => \&baz_parser };
+
+    my $code;
+
+    sub baz { $code = $_[0] }
+    sub baz_parser {
+        lex_read_space;
+        my $block = parse_block;
+        return (sub { $block }, 1);
+    }
+
+    baz {
+        my $foo = 1;
+        return $foo + 2;
+    }
+    ::is(ref($code), 'CODE');
+    ::is($code->(), 3);
+}
+
 done_testing;
-- 
cgit v1.2.3-54-g00ecf