File Coverage

blib/lib/Data/Transpose/Prefix/Field.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	4	100.0
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	24	24	100.0

package Data::Transpose::Prefix::Field;

use strict;
use warnings;
use Moo;

=head1 NAME

Data::Transpose::Prefix::Field - Field class with prefix for Data::Transpose

=head1 SYNOPSIS

     $field = Data::Transpose::Prefix::Field->new(
        prefix => 'billing_',
        name => 'email',

=head1 DESCRIPTION

This is a subclass of L.

=head1 ATTRIBUTES

=over 4

=item prefix

Prefix for the field name.

=back

=head1 METHODS

=head2 target

Sets or get the target.

     $field->target('email');

The return value includes the prefix, e.g.
C.

=cut

extends 'Data::Transpose::Field';

has prefix => (
    is => 'ro',
    required => 1,
);

has _target => (
    is => 'rwp',
);

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

    if ($target) {
        # setter
        $self->_set__target($target);
    }

    if ($self->_target) {
        return $self->prefix . $self->_target;
    }
    else {
        return $self->prefix . $self->name;
    }
};

=head1 LICENSE AND COPYRIGHT

Copyright 2012-2016 Stefan Hornburg (Racke) .

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut

1;