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   42 use Moo;
  13         13  
  13         48  
4 13     13   6543 use namespace::clean;
  13         100354  
  13         72  
5              
6             extends 'MARC::Spec::Structure';
7              
8             our $VERSION = '0.1.4';
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 21166 my ($class, @args) = @_;
27 42 50       123 if (@args % 2 == 1) { unshift @args, "tag" }
  42         63  
28 42         560 return { @args };
29             }
30             1;
31             __END__