File Coverage

blib/lib/Catmandu/Fix/Inline/marc_remove.pm
Criterion Covered Total %
statement 5 5 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 7 8 87.5


line stmt bran cond sub pod time code
1             package Catmandu::Fix::Inline::marc_remove;
2              
3 2     2   50340 use Catmandu::MARC;
  2         6  
  2         216  
4             require Exporter;
5              
6             @ISA = qw(Exporter);
7             @EXPORT_OK = qw(marc_remove);
8             %EXPORT_TAGS = (all => [qw(marc_remove)]);
9              
10             our $VERSION = '1.20';
11              
12             sub marc_remove {
13 1     1 0 556 my ($data,$marc_path) = @_;
14 1         5 return Catmandu::MARC->instance->marc_remove($data,$marc_path);
15             }
16              
17             =head1 NAME
18              
19             Catmandu::Fix::Inline::marc_remove - remove marc fields (DEPRECATED)
20              
21             =head1 SYNOPSIS
22              
23             use Catmandu::Fix::Inline::marc_remove qw(:all);
24              
25             my $data = marc_remove($data,'CAT');
26              
27             =head1 DEPRECATED
28              
29             This module is deprecated. Use the inline functionality of L<Catmandu::Fix::marc_remove> instead.
30              
31             =head1 SEE ALSO
32              
33             L<Catmandu::Fix::marc_remove>
34              
35             =cut
36              
37             1;