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   695 use Mojo::Base -strict;
  1         3  
  1         13  
3              
4 1     1   994 use Mojolicious::Lite;
  1         124044  
  1         8  
5 1     1   16399 use lib 'lib';
  1         644  
  1         9  
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__