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; |