File Coverage

blib/lib/App/Table2YAML/Loader/FixedWidth.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	7	7	100.0
pod	1	1	100.0
total	43	45	95.5

package App::Table2YAML::Loader::FixedWidth;

use common::sense;
use charnames q(:full);
use English qw[-no_match_vars];
use IO::File;
use Moo::Role;

our $VERSION = '0.002'; # VERSION

sub load_fixedwidth {
    my $self = shift;

    my @fixedwidth;

    my @template = @{ $self->field_offset() };
    foreach my $offset (@template) {
        substr $offset, 0, 0, q(A);
    }
    my $template = join q(), @template;

    local $INPUT_RECORD_SEPARATOR = $self->record_separator();
    my $ref = ref $self->input() || q();
    my $fw_fh
        = $ref eq q(GLOB)
        ? $self->input()
        : IO::File->new( $self->input(), q(r) );
    while ( my $record = readline $fw_fh ) {
        chomp $record;
        my @row = unpack $template, $record;
        push @fixedwidth, [@row];
    }

    return @fixedwidth;
} ## end sub load_fixedwidth

no Moo;
__PACKAGE__->meta->make_immutable;

1;

__END__