File Coverage

blib/lib/Module/Changes/Validator/YAML.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package Module::Changes::Validator::YAML;
2              
3 2     2   1422 use warnings;
  2         4  
  2         69  
4 2     2   9 use strict;
  2         5  
  2         59  
5 2     2   1894 use Kwalify ();
  2         8001  
  2         44  
6 2     2   27 use YAML;;
  2         5  
  2         379  
7              
8              
9             our $VERSION = '0.05';
10              
11              
12 2     2   11 use base 'Module::Changes::Base';
  2         4  
  2         345  
13              
14              
15             my $schema = Load(<
16             type: map
17             mapping:
18             global:
19             type: map
20             mapping:
21             name:
22             type: str
23             required: yes
24             releases:
25             type: seq
26             sequence:
27             - type: map
28             mapping:
29             version:
30             type: scalar
31             required: yes
32             author:
33             type: str
34             required: yes
35             changes:
36             type: seq
37             sequence:
38             - type: str
39             date:
40             type: str
41             required: yes
42             tags:
43             type: seq
44             sequence:
45             - type: str
46             EOSCHEMA
47              
48              
49             sub validate {
50 1     1 0 7907 my ($self, $yaml) = @_;
51 1         8 Kwalify::validate($schema, $yaml);
52             }
53              
54              
55             1;
56              
57             __END__