Add reqJSON and resJSON for simple JSON API support

1 files changed, 8 insertions, 0 deletions

diff --git a/examples/singlefile.pl b/examples/singlefile.pl
index 272a9d6..6544ce1 100755
--- a/examples/singlefile.pl
+++ b/examples/singlefile.pl
@@ -32,6 +32,8 @@ TUWF::register(
   # /sub/ as the second argument to subpage().
   qr/sub\/(.*)/ => \&subpage,
 
+  qr{api/echo\.json} => \&echoapi,
+
   # all requests for non-registered URIs will throw a 404
 );
 
@@ -70,3 +72,9 @@ sub subpage {
 }
 
 
+sub echoapi {
+  my $self = shift;
+  $self->resJSON($self->reqJSON);
+}
+
+