File Coverage

blib/lib/Bio/PhyloXS/Forest/Node.pm

Criterion	Covered	Total	%
statement	3	4	75.0
branch			n/a
condition			n/a
subroutine	1	2	50.0
pod			n/a
total	4	6	66.6

## This file generated by InlineX::C2XS (version 0.25) using Inline::C (version 0.78)
package Bio::PhyloXS::Forest::Node;

require Exporter;
*import = \&Exporter::import;
require DynaLoader;

our $VERSION = 'v0.1.0';
$VERSION = eval $VERSION;
DynaLoader::bootstrap Bio::PhyloXS::Forest::Node $VERSION;

@Bio::PhyloXS::Forest::Node::EXPORT = ();
@Bio::PhyloXS::Forest::Node::EXPORT_OK = ();

sub dl_load_flags {0} # Prevent DynaLoader from complaining and croaking
use base qw'Bio::PhyloXS::Listable Bio::Phylo::Forest::Node';
use Scalar::Util 'looks_like_number';
use Bio::Phylo::Util::Exceptions 'throw';

our $AUTOLOAD;
sub AUTOLOAD {
	my $self = shift;
	my $method = $AUTOLOAD;
	$method =~ s/.+:/Bio::Phylo::Forest::Node::/;
	$self->$method(@_);
}

sub set_branch_length {
	my ( $self, $bl ) = @_;
	my $id = $self->get_id;
	if ( defined $bl && looks_like_number $bl && !ref $bl ) {
		$self->set_raw_branch_length($bl);
	}
	elsif ( defined $bl && ( !looks_like_number $bl || ref $bl ) ) {
		throw 'BadNumber' => "Branch length \"$bl\" is a bad number";
	}
	elsif ( !defined $bl ) {
		$self->set_raw_branch_length();
	}
	return $self;
}


__PACKAGE__;