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.19';
3 48     48   22753 use v5.10;
  48         202  
4 48     48   1012 use strict;
  48         664  
  48         1405  
5 48     48   289 use warnings;
  48         106  
  48         1538  
6 48     48   328 use Carp qw(croak);
  48         111  
  48         7467  
7              
8             sub use_context
9             {
10 13     13 0 42 my ($class, $context) = @_;
11              
12 13 100       71 croak 'context using DSL keyword called without context'
13             unless defined $$context;
14              
15 11         48 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__