File Coverage

lib/MetaPOD/Format/JSON/PostCheck/v1.pm
Criterion Covered Total %
statement 17 19 89.4
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 28 89.2


line stmt bran cond sub pod time code
1 6     6   4725 use strict;
  6         14  
  6         210  
2 6     6   33 use warnings;
  6         13  
  6         318  
3              
4             package MetaPOD::Format::JSON::PostCheck::v1;
5             BEGIN {
6 6     6   177 $MetaPOD::Format::JSON::PostCheck::v1::AUTHORITY = 'cpan:KENTNL';
7             }
8             {
9             $MetaPOD::Format::JSON::PostCheck::v1::VERSION = '0.3.0';
10             }
11              
12             # ABSTRACT: Handler for unrecognised tokens in C
13              
14              
15 6     6   816 use Moo::Role;
  6         22973  
  6         39  
16 6     6   1946 use Carp qw( croak );
  6         11  
  6         895  
17              
18              
19             sub postcheck {
20 13     13 1 28 my ( $self, $data, $result ) = @_;
21              
22 13 50       25 if ( keys %{$data} ) {
  13         63  
23 0         0 croak 'Keys found not supported in this version: <' . ( join q{,}, keys %{$data} ) . '>';
  0         0  
24             }
25 13         34 return;
26             }
27              
28             1;
29              
30             __END__