File Coverage

blib/lib/Bio/Phylo/Util/IDPool.pm

Criterion	Covered	Total	%
statement	9	11	81.8
branch	1	2	50.0
condition			n/a
subroutine	3	4	75.0
pod			n/a
total	13	17	76.4

package Bio::Phylo::Util::IDPool;
use strict;
{
    my @reclaim;
    my $obj_counter = 1;

    sub _initialize {
        my $obj_ID = 0;
        if (@reclaim) {
            $obj_ID = shift(@reclaim);
        }
        else {
            $obj_ID = $obj_counter;
            $obj_counter++;
        }
        return \$obj_ID;
    }

    sub _reclaim {
        my ( $class, $obj ) = @_;

        #        push @reclaim, $obj->get_id;
    }

    sub _reset {
    	$obj_counter = 1;
    }
}
1;
__END__