File Coverage

ex/qaptcha.pl
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/env perl
2 1     1   865 use Mojo::Base -strict;
  1         4  
  1         15  
3              
4 1     1   1114 use Mojolicious::Lite;
  1         190310  
  1         8  
5 1     1   24457 use lib 'lib';
  1         764  
  1         8  
6              
7             plugin 'Qaptcha', {
8             inbuild_jquery => 1,
9             inbuild_jquery_ui => 1,
10             inbuild_jquery_ui_touch => 1,
11             };
12              
13             get '/inline' => sub {
14             my $self = shift;
15             $self->render(inline => 'Hello Qaptcha! <%= qaptcha_include %>');
16             };
17             any '/' => sub {
18             my $self = shift;
19             $self->stash(
20             form_processing => sprintf("form data %s processed",
21             $self->qaptcha_is_unlocked ? '' : 'not')
22             );
23             $self->render('index');
24             };
25              
26             app->start();
27              
28             __DATA__