File Coverage

blib/lib/MARC/Spec/Field.pm
Criterion Covered Total %
statement 10 10 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 14 16 87.5


line stmt bran cond sub pod time code
1             package MARC::Spec::Field;
2              
3 13     13   100 use Moo;
  13         32  
  13         70  
4 13     13   9242 use namespace::clean;
  13         130966  
  13         111  
5              
6             extends 'MARC::Spec::Structure';
7              
8             our $VERSION = '1.0.0';
9              
10             has tag => (
11             is => 'rw',
12             required => 1
13             );
14              
15             has indicator1 => (
16             is => 'rw',
17             predicate => 1
18             );
19            
20             has indicator2 => (
21             is => 'rw',
22             predicate => 1
23             );
24              
25             sub BUILDARGS {
26 42     42 0 40958 my ($class, @args) = @_;
27 42 50       221 if (@args % 2 == 1) { unshift @args, "tag" }
  42         130  
28 42         916 return { @args };
29             }
30             1;
31             __END__