File Coverage

lib/Dancer/Plugin/Syntax/GetPost.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 23 23 100.0


line stmt bran cond sub pod time code
1 1     1   376268 use 5.008001;
  1         5  
  1         48  
2 1     1   8 use strict;
  1         2  
  1         37  
3 1     1   5 use warnings;
  1         2  
  1         63  
4              
5             package Dancer::Plugin::Syntax::GetPost;
6             # ABSTRACT: Syntactic sugar for GET+POST handlers
7             our $VERSION = '0.001'; # VERSION
8              
9 1     1   962 use Dancer::Plugin;
  1         1448  
  1         82  
10 1     1   6 use Dancer ':syntax';
  1         2  
  1         8  
11              
12             register get_post => sub {
13 1     1   27 my ( $self, @args ) = plugin_args(@_);
14 1         17 any [qw/get post/] => @args;
15             };
16              
17             register_plugin for_versions => [ 1, 2 ];
18              
19             1;
20              
21              
22             # vim: ts=2 sts=2 sw=2 et:
23              
24             __END__