File Coverage

blib/lib/Catmandu/Fix/Base.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1              
2             use Catmandu::Sane;
3 106     106   50992  
  106         224  
  106         687  
4             our $VERSION = '1.2018';
5              
6             use Catmandu::Fix;
7 106     106   2275 use Moo::Role;
  106         239  
  106         1984  
8 106     106   453 use namespace::clean;
  106         198  
  106         553  
9 106     106   35508  
  106         285  
  106         571  
10             with 'Catmandu::Logger';
11             with 'Catmandu::Fix::Inlineable';
12             with 'Catmandu::Emit';
13              
14             requires 'emit';
15              
16             my ($self, $data) = @_;
17             Catmandu::Fix->new(fixes => [$self])->fix($data);
18 319     319 0 11011 }
19 319         4997  
20             1;
21              
22              
23             =pod
24              
25             =head1 NAME
26              
27             Catmandu::Fix::Base - Base role for all code emitting Catmandu fixes
28              
29             =head1 SYNOPSIS
30              
31             package Catmandu::Fix::my_fix;
32              
33             use Catmandu::Sane;
34             use Moo;
35              
36             with 'Catmandu::Fix::Base';
37              
38             sub emit {
39             my ($self, $fixer) = @_;
40             ....FIXER GENERATING CODE....
41             }
42              
43             =head1 SEE ALSO
44              
45             For more information how to create fixes read the following two blog posts:
46              
47             http://librecat.org/catmandu/2014/03/14/create-a-fixer.html
48             http://librecat.org/catmandu/2014/03/26/creating-a-fixer-2.html
49              
50             =cut