view release on metacpan or  search on metacpan

lib/App/Locker.pm  view on Meta::CPAN

} else {
  # parent
          
  print "LOCK\n";
  $locker->lock();
  print "UNLOCK\n";
}

=head1 DESCRIPTION

This module provides create lock point in any place scipt and unlock it from another script place (main, fork, thread).

=cut

$Storable::Deparse = 1;

=head2 create
my $locker=App::Locker->create;

create main object thith lock api
=cut