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.26';
3 50     50   28743 use v5.10;
  50         195  
4 50     50   360 use strict;
  50         100  
  50         1644  
5 50     50   303 use warnings;
  50         110  
  50         2994  
6 50     50   296 use Carp qw(croak);
  50         101  
  50         9793  
7              
8             sub use_context
9             {
10 13     13 0 31 my ($class, $context) = @_;
11              
12 13 100       72 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__