File Coverage

blib/lib/Bio/PhyloXS/Identifiable.pm

Criterion	Covered	Total	%
statement	4	17	23.5
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	6	23	26.0

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

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

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

@Bio::PhyloXS::Identifiable::EXPORT = ();
@Bio::PhyloXS::Identifiable::EXPORT_OK = ();

sub dl_load_flags {0} # Prevent DynaLoader from complaining and croaking
use Carp;

sub new {
	my $class = shift;
	my $self = $class->create;
	my %args = @_;
	for my $key ( keys %args ) {
		my $method = $key;
		$method =~ s/^-/set_/;
		$self->$method($args{$key});
	}
	return $self;
}

sub DESTROY {
	my $self = shift;
	my $class = ref $self;
	$class =~ s/.+://;
	my $destructor = 'destroy_' . lc $class;
	$self->$destructor;
}

__PACKAGE__;