File Coverage

blib/lib/Thread/Stack.pm

Criterion	Covered	Total	%
statement	29	32	90.6
branch	2	4	50.0
condition			n/a
subroutine	9	10	90.0
pod	5	5	100.0
total	45	51	88.2

package Thread::Stack;

use 5.008;
use threads::shared;
use strict;
use warnings;


our $VERSION = '1.00';


sub new {
    my $class = shift;
    my @q : shared = @_;
    return bless \@q, $class;
}

sub pop {
    my $q = shift;
    lock(@$q);
    cond_wait @$q until @$q;
    cond_signal @$q if @$q > 1;
    return CORE::pop @$q;
}

sub pop_nb {
    my $q = shift;
    lock(@$q);
    return CORE::pop @$q;
}
sub push {
    my $q = shift;
    lock(@$q);
    push @$q, @_  and cond_signal @$q;
}

sub size  {
    my $q = shift;
    lock(@$q);
    return scalar(@$q);
}

1;

__END__