File Coverage

lib/Bio/Resistome/Input/FileOnePerLine.pm

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

package Bio::Resistome::Input::FileOnePerLine;
# ABSTRACT: File containing a list of input data, one per line.


use Moose;
use Bio::Resistome::Input::Exceptions;

has 'filename'       => ( is => 'ro', isa => 'Str', required => 1 );
has 'file_line_data' => ( is => 'ro', isa => 'ArrayRef[Str]', lazy => 1, builder => '_build_file_line_data' );

sub _build_file_line_data
{
  my ($self) = @_;

  open(my $fh, $self->filename) or Bio::Resistome::Input::Exceptions::FileDoesntExist->throw(error => 'Couldnt open file '.$self->filename);
  my @file_line_data;
  while(<$fh>)
  {
    chomp;
    my $line = $_;
    next if( $line =~ /^\#/);
    next if( $line eq "");
    push(@file_line_data, $line);
  }
  return \@file_line_data;
}

__PACKAGE__->meta->make_immutable;

no Moose;

1;

__END__

=pod

=head1 NAME

Bio::Resistome::Input::FileOnePerLine - File containing a list of input data, one per line.

=head1 VERSION

version 1.123560

=head1 SYNOPSIS

File containing a list of input data, one per line.

    use Bio::Resistome::Input::FileOnePerLine;
    my $obj = Bio::Resistome::Input::FileOnePerLine->new(
      filename => 'input_file.txt'
    );
    $obj->file_line_data;

=head1 METHODS

=head2 file_line_data

Returns an array with the input data from the file.

=head1 AUTHOR

Andrew J. Page <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2012 by Wellcome Trust Sanger Institute.

This is free software, licensed under:

  The GNU General Public License, Version 3, June 2007

=cut