File Coverage

blib/lib/MARC/Moose/Field.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	2	0.0
condition			n/a
subroutine	2	4	50.0
pod	1	2	50.0
total	9	20	45.0

package MARC::Moose::Field;
# ABSTRACT: Marc field base object
$MARC::Moose::Field::VERSION = '1.0.45';
use Moose;
use Moose::Util::TypeConstraints;

subtype 'Tag'
    => as 'Str'
    => where { $_ =~ /^\w{3}$/ }
    => message { 'A 3 alphanumeric characters is required' };

has tag => ( is => 'rw', isa => 'Tag', required => 1, );


sub clone {
    my ($self, $tag) = @_;

    my $field = MARC::Moose::Field->new( tag => $self->tag );
    $field->tag($tag) if $tag;
    return $field;
}


sub as_formatted {
    my $self = shift;
    return $self->tag;
}

__PACKAGE__->meta->make_immutable;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

MARC::Moose::Field - Marc field base object

=head1 VERSION

version 1.0.45

=head1 ATTRIBUTES

=head2 tag

3-alphanumerics identifing a field. Required.

=head1 METHODS

=head2 clone([$tag])

Return a new field cloning the field. If tag is provided, the cloned field tag
is changed.

=head1 SEE ALSO

=over 4



=back

* L<MARC::Moose::Field::Control>
* L<MARC::Moose::Field::Std>

=head1 AUTHOR

Frédéric Demians <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2022 by Frédéric Demians.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut