package Thread::Semaphore::Boolean;

use threads::shared;

use parent 'Thread::Semaphore';

# Create a new 'boolean' semaphore
sub new {
    my $class = shift;
    return $class->SUPER::new(1);
}

# Set semaphore's count to 1
sub up {
    my $sema = shift;
    lock($$sema);
    $$sema = 1;
    cond_broadcast($$sema);
}

1;