File Coverage

blib/lib/MARC/Moose/Field/Control.pm
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             package MARC::Moose::Field::Control;
2             # ABSTRACT: Control Marc field (tag < 010)
3             $MARC::Moose::Field::Control::VERSION = '1.0.44';
4 4     4   26 use Moose;
  4         8  
  4         30  
5              
6             extends 'MARC::Moose::Field';
7              
8             has value => ( is => 'rw', isa => 'Str' );
9              
10             override 'as_formatted' => sub {
11             my $self = shift;
12              
13             join ' ', ( $self->tag, $self->value );
14             };
15              
16              
17             override 'clone' => sub {
18             my ($self, $tag) = @_;
19             my $field = MARC::Moose::Field::Control->new( tag => $self->tag );
20             $field->tag($tag) if $tag;
21             my $value = $self->value . '';
22             $field->value($value);
23             return $field;
24             };
25              
26              
27             __PACKAGE__->meta->make_immutable;
28              
29             1;
30              
31             __END__
32              
33             =pod
34              
35             =encoding UTF-8
36              
37             =head1 NAME
38              
39             MARC::Moose::Field::Control - Control Marc field (tag < 010)
40              
41             =head1 VERSION
42              
43             version 1.0.44
44              
45             =head1 AUTHOR
46              
47             Frédéric Demians <f.demians@tamil.fr>
48              
49             =head1 COPYRIGHT AND LICENSE
50              
51             This software is copyright (c) 2021 by Frédéric Demians.
52              
53             This is free software; you can redistribute it and/or modify it under
54             the same terms as the Perl 5 programming language system itself.
55              
56             =cut