File Coverage

eg/PLite.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package PLite;
2 1     1   81097 use Puncheur::Lite;
  1         5  
  1         8  
3              
4             enable_session;
5              
6             __PACKAGE__->setting(
7             handle_static => 1,
8             );
9             __PACKAGE__->load_plugins('JSON', 'ShareDir');
10              
11             any '/' => sub {
12             my $c = shift;
13              
14             my $count = $c->session->get('counter');
15             $c->session->set(counter => ++$count);
16              
17             $c->render('index.tx', {
18             counter => $count,
19             });
20             };
21              
22             any '/api' => sub {
23             my $c = shift;
24              
25             my $count = $c->session->get('counter');
26             $c->session->set(counter => ++$count);
27              
28             $c->res_json({
29             counter => $count,
30             });
31             };
32              
33             1;
34              
35             __DATA__