File Coverage

blib/lib/YAML/PP/Schema/Merge.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1 1     1   529 use strict;
  1         3  
  1         30  
2 1     1   5 use warnings;
  1         2  
  1         53  
3             package YAML::PP::Schema::Merge;
4              
5             our $VERSION = '0.036_001'; # TRIAL VERSION
6              
7 1     1   412 use YAML::PP::Type::MergeKey;
  1         3  
  1         89  
8              
9             sub register {
10 1     1 1 5 my ($self, %args) = @_;
11 1         2 my $schema = $args{schema};
12              
13 1         3 $schema->add_resolver(
14             tag => 'tag:yaml.org,2002:merge',
15             match => [ equals => '<<' => YAML::PP::Type::MergeKey->new ],
16             );
17             }
18              
19             1;
20              
21             __END__