File Coverage

blib/lib/Form/Tiny/Plugin.pm
Criterion Covered Total %
statement 14 16 87.5
branch 2 2 100.0
condition n/a
subroutine 5 6 83.3
pod 1 2 50.0
total 22 26 84.6


line stmt bran cond sub pod time code
1             package Form::Tiny::Plugin;
2             $Form::Tiny::Plugin::VERSION = '2.20';
3 48     48   23381 use v5.10;
  48         194  
4 48     48   963 use strict;
  48         669  
  48         1388  
5 48     48   266 use warnings;
  48         125  
  48         1566  
6 48     48   339 use Carp qw(croak);
  48         102  
  48         7412  
7              
8             sub use_context
9             {
10 13     13 0 33 my ($class, $context) = @_;
11              
12 13 100       72 croak 'context using DSL keyword called without context'
13             unless defined $$context;
14              
15 11         52 return $$context;
16             }
17              
18             sub plugin
19             {
20 0     0 1   my ($class, $caller, $context) = @_;
21              
22 0           croak 'Unimplemented!';
23             }
24              
25             1;
26              
27             __END__