File Coverage

blib/lib/Data/Pool/Shared.pm

Criterion	Covered	Total	%
statement	27	32	84.3
branch	8	14	57.1
condition	2	4	50.0
subroutine	7	8	87.5
pod	0	5	0.0
total	44	63	69.8

package Data::Pool::Shared;
use strict;
use warnings;
our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Data::Pool::Shared', $VERSION);

# Variant @ISA — inherit alloc/free/is_allocated/capacity/etc. from base

@Data::Pool::Shared::I64::ISA = ('Data::Pool::Shared');
@Data::Pool::Shared::F64::ISA = ('Data::Pool::Shared');
@Data::Pool::Shared::I32::ISA = ('Data::Pool::Shared');
@Data::Pool::Shared::Str::ISA = ('Data::Pool::Shared');

# Guard — auto-free on scope exit

package Data::Pool::Shared::Guard {
    sub DESTROY {
        my $self = shift;
        eval { $self->[0]->free($self->[1]) } if $self->[0];
    }
}

sub alloc_guard {
    my ($self, $timeout) = @_;
    my $idx = $self->alloc($timeout // -1);
    return unless defined $idx;
    my $guard = bless [$self, $idx], 'Data::Pool::Shared::Guard';
    return wantarray ? ($idx, $guard) : $guard;
}

sub try_alloc_guard {
    my ($self) = @_;
    my $idx = $self->try_alloc;
    return unless defined $idx;
    my $guard = bless [$self, $idx], 'Data::Pool::Shared::Guard';
    return wantarray ? ($idx, $guard) : $guard;
}

# Convenience — alloc + set in one call

sub alloc_set {
    my ($self, $val, $timeout) = @_;
    my $idx = $self->alloc($timeout // -1);
    return unless defined $idx;
    $self->set($idx, $val);
    return $idx;
}

sub try_alloc_set {
    my ($self, $val) = @_;
    my $idx = $self->try_alloc;
    return unless defined $idx;
    $self->set($idx, $val);
    return $idx;
}

# Iterate allocated slots

sub each_allocated {
    my ($self, $cb) = @_;
    $cb->($_) for @{ $self->allocated_slots };
}

1;

__END__