File Coverage

blib/lib/Tie/File/AnyData/Bio/Fasta.pm

Criterion	Covered	Total	%
statement	26	29	89.6
branch	7	10	70.0
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	39	45	86.6

package Tie::File::AnyData::Bio::Fasta;

use strict;
use warnings;
use Carp;

our $VERSION = '0.01';

BEGIN{
  require Tie::File::AnyData;
}

sub TIEARRAY
  {
    my ($pack,$file,%opts) = @_;

    ## option recsep is not allowed
    for my $key (keys %opts) {
      if ($key =~ /\-?recsep/){
	carp "Option recsep is not accepted by IO::Tie::File::AnyData\nThis will be overrided\n";
	delete $opts{$key};
      }
    }

    my $coderef = sub {
      my ($fh) = @_;
      return undef if eof $fh;
      local $/ = "\n>";
      my $faseq = <$fh>;
      if (eof $fh) {
	local $/ = "\n";
	chomp $faseq;
      } else {
	chomp $faseq;
      }
      $faseq = ">$faseq" if $faseq !~ /^>/;
      return "$faseq\n";
    };

    carp "Overriding code ref" if (defined $opts{'code'});
    local $/="\n";
    Tie::File::AnyData::TIEARRAY("Tie::File::AnyData",$file,%opts, code => $coderef);
  }

1;

__END__