File Coverage

blib/lib/DBIx/dbMan/MemPool.pm

Criterion	Covered	Total	%
statement	9	32	28.1
branch	0	8	0.0
condition			n/a
subroutine	3	9	33.3
pod	0	6	0.0
total	12	55	21.8

package DBIx::dbMan::MemPool;

use strict;
use locale;
use POSIX;

our $VERSION = '0.04';

1;

sub new {
	my $class = shift;
	my $obj = bless { @_ }, $class;
	return $obj;
}

sub set {
	my $obj = shift;
	my $name = shift;
	$obj->{$name} = shift;
}

sub get {
	my $obj = shift;
	my $name = shift;
	return undef unless exists $obj->{$name};
	return $obj->{$name};
}

sub register {
	my $obj = shift;
	my $name = shift;
	++$obj->{-registers}->{$name}->{$_} for @_;
}

sub deregister {
	my $obj = shift;
	my $name = shift;
	for (@_) {
		delete $obj->{-registers}->{$name}->{$_} unless --$obj->{-registers}->{$name}->{$_};
	}
}

sub get_register {
	my $obj = shift;
	my $name = shift;
	return () unless exists $obj->{-registers};
	return () unless exists $obj->{-registers}->{$name};
	return keys %{$obj->{-registers}->{$name}};
}