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.21';
3 49     49   23218 use v5.10;
  49         212  
4 49     49   1012 use strict;
  49         701  
  49         1379  
5 49     49   258 use warnings;
  49         118  
  49         1572  
6 49     49   294 use Carp qw(croak);
  49         104  
  49         7352  
7              
8             sub use_context
9             {
10 13     13 0 33 my ($class, $context) = @_;
11              
12 13 100       54 croak 'context using DSL keyword called without context'
13             unless defined $$context;
14              
15 11         47 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__