File Coverage

blib/lib/Bio/Phylo/Parsers/Taxlist.pm

Criterion	Covered	Total	%
statement	26	36	72.2
branch	1	8	12.5
condition	3	4	75.0
subroutine	4	4	100.0
pod			n/a
total	34	52	65.3

package Bio::Phylo::Parsers::Taxlist;
use strict;
use base 'Bio::Phylo::Parsers::Abstract';
use Bio::Phylo::Util::CONSTANT;

=head1 NAME

Bio::Phylo::Parsers::Taxlist - Parser used by Bio::Phylo::IO, no serviceable parts inside

=head1 DESCRIPTION

This module is used for importing sets of taxa from plain text files, one taxon
on each line. It is called by the L object, so
look there for usage examples. If you want to parse from a string, you
may need to indicate the field separator (default is '\n') to the
Bio::Phylo::IO->parse call:

 -fieldsep => '\n',

=cut

sub _parse {
    my $self = shift;
    my $fh   = $self->_handle;
    my $fac  = $self->_factory;
    my $taxa = $fac->create_taxa;
    local $/ = $self->_args->{'-fieldsep'} || "\n";
    my $delim = $self->_args->{'-delim'} || "\t";
    my @header;
    LINE: while (<$fh>) {
        chomp;
        my @fields = split /$delim/, $_;
        my $name;
        my %meta;

        # this means it is actually tabular, which also means it has a header
        if ( scalar @fields > 1 ) {

            # this happens the first line
            if ( not @header ) {
                @header = @fields;
                for my $predicate ( @header ) {
                    if ( $predicate =~ /^(.+?):.+$/ ) {
                        my $prefix = $1;
                        $taxa->set_namespaces(
                            $prefix => $Bio::Phylo::Util::CONSTANT::NS->{$prefix}
                        );
                    }
                }
                next LINE;
            }

            # create key value pairs to attach
            for my $i ( 1 .. $#fields ) {
                $meta{$header[$i]} = $fields[$i] if $fields[$i];
            }
        }

        # this is the first field regardless
        $name = shift @fields;
        my $taxon = $fac->create_taxon( '-name' => $name );

        # attach metadata, if any
        for my $predicate ( keys %meta ) {
            $taxon->add_meta(
                $fac->create_meta( '-triple' => { $predicate => $meta{$predicate} } )
            );
        }
        $taxa->insert( $taxon );
    }
    return $taxa;
}

# podinherit_insert_token

=head1 SEE ALSO

There is a mailing list at L
for any user or developer questions and discussions.

=over

=item L

The taxon list parser is called by the L object.
Look there for examples.

=item L

Also see the manual: L and L.

=back

=head1 CITATION

If you use Bio::Phylo in published research, please cite it:

B, B, B, B
and B, 2011. Bio::Phylo - phyloinformatic analysis using Perl.
I B<12>:63.
L

=cut

1;