File Coverage

blib/lib/Catmandu/Fix/Condition/marc_any_match.pm
Criterion Covered Total %
statement 21 34 61.7
branch n/a
condition n/a
subroutine 7 8 87.5
pod 0 1 0.0
total 28 43 65.1


line stmt bran cond sub pod time code
1             package Catmandu::Fix::Condition::marc_any_match;
2 1     1   47413 use Catmandu::Sane;
  1         125574  
  1         6  
3 1     1   506 use Catmandu::Fix::marc_map;
  1         4  
  1         4  
4 1     1   972 use Catmandu::Fix::Condition::any_match;
  1         12503  
  1         3  
5 1     1   295 use Catmandu::Fix::set_field;
  1         3813  
  1         4  
6 1     1   275 use Catmandu::Fix::remove_field;
  1         3231  
  1         4  
7 1     1   63 use Moo;
  1         2  
  1         3  
8 1     1   307 use Catmandu::Fix::Has;
  1         2  
  1         3  
9              
10             our $VERSION = '1.20';
11              
12             with 'Catmandu::Fix::Condition';
13              
14             has marc_path => (fix_arg => 1);
15             has value => (fix_arg => 1);
16              
17             sub emit {
18 0     0 0   my ($self,$fixer,$label) = @_;
19              
20 0           my $perl;
21              
22 0           my $tmp_var = '_tmp_' . int(rand(9999));
23 0           my $marc_map = Catmandu::Fix::marc_map->new($self->marc_path , "$tmp_var.\$append");
24 0           $perl .= $marc_map->emit($fixer,$label);
25              
26 0           my $any_match = Catmandu::Fix::Condition::any_match->new("$tmp_var.*",$self->value);
27 0           my $remove_field = Catmandu::Fix::remove_field->new($tmp_var);
28              
29 0           my $pass_fixes = $self->pass_fixes;
30 0           my $fail_fixes = $self->fail_fixes;
31              
32 0           $any_match->pass_fixes([ $remove_field , @$pass_fixes ]);
33 0           $any_match->fail_fixes([ $remove_field , @$fail_fixes ]);
34              
35 0           $perl .= $any_match->emit($fixer,$label);
36              
37 0           $perl;
38             }
39              
40             =head1 NAME
41              
42             Catmandu::Fix::Condition::marc_any_match - Test if a MARC (sub)field matches a value
43              
44             =head1 SYNOPSIS
45              
46             # marc_any_match(MARC_PATH,REGEX)
47              
48             # Match when 245 contains the value "My funny title"
49             if marc_any_match('245','My funny title')
50             add_field('my.funny.title','true')
51             end
52              
53             # Match when 245a contains the value "My funny title"
54             if marc_any_match('245a','My funny title')
55             add_field('my.funny.title','true')
56             end
57              
58             # Match when at least one 650 field contains digits
59             if marc_any_match('650','[0-9]')
60             add_field('has_digits','true')
61             end
62              
63             =head1 DESCRIPTION
64              
65             Evaluate the enclosing fixes only if the MARC (sub)field matches a
66             regular expression. When the MARC field is a repeated fiels, then at
67             least one MARC fields should match the regular expression.
68              
69             =head1 METHODS
70              
71             =head2 marc_any_match(MARC_PATH, REGEX)
72              
73             Evaluates to true when at least one MARC_PATH values matches the REGEX, false otherwise.
74              
75             =head1 SEE ALSO
76              
77             L<Catmandu::Fix::Condition::marc_all_match>
78              
79             =cut
80              
81             1;