/ 
Thread-CriticalSection-0.01
River stage zero No dependents
/ Thread::CriticalSection

NAME

Thread::CriticalSection - Run a coderef inside a critical section

VERSION

Version 0.01

SYNOPSIS

use threads;
use Thread::CriticalSection;

my $cs = Thread::CriticalSection->new;

$cs->execute(sub {
  # your code is protected by $cs
});

# you can also return stuff
my $result = $cs->execute(sub {
  # do work in a cosy critical section
  return $result;
});

# and you can even use wantarray
my @victims = $cs->execute(sub {
  # do work in a cosy critical section
  return wantarray? @result : \@result;
});

STATUS

As of 2008/06/18, this module is considered beta quality. The interface should not suffer any changes but its a young module with very little use.

You'll still see "Scalars leaked" in the test suite, and I would like to get rid of them before declaring the code as stable.

The abnormal thread terminations I get when running the test suite are in the unsafe tests, so I think I'm getting into perl threads issues, not bugs in this module. Prof of the opposite (in the form of failing tests) are most welcome.

DESCRIPTION

The Thread::CriticalSection module allows you to run a coderef inside a critical section.

All the details of entering and leaving the critical section are taken care of by the execute() method.

You can have several critical sections simultaneously inside your program. The usual care and feeding regarding deadlocks should be taken when calling execute() recursively.

METHODS

  • $cs = new()

    Creates and returns a new critical section. Requires no parameters.

  • [$return|@return] = $cs->execute(sub {}|$coderef)

    Executes the given $coderef inside the critical section. The $coderef can use wantarray to inspect the context of the call and react accordingly.

AUTHOR

Pedro Melo, <melo at cpan.org>

BUGS

Please report any bugs or feature requests to bug-thread-criticalsection at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Thread-CriticalSection. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Thread::CriticalSection

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2008 Pedro Melo, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.