KeyedMutex::Lock - A lock object for KeyedMutex

KeyedMutex documentation Contained in the KeyedMutex distribution.

Index

Code Index:

NAME

Top

KeyedMutex::Lock - A lock object for KeyedMutex

DESCRIPTION

Top

There are no public methods exposed from the module. See documentation of KeyedMutex for detail.

AUTHOR

Top

Copyright (c) 2007 Cybozu Labs, Inc. All rights reserved.

written by Kazuho Oku <kazuhooku@gmail.com>

LICENSE

Top

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

See http://www.perl.com/perl/misc/Artistic.html

KeyedMutex documentation Contained in the KeyedMutex distribution. 
use strict;
use warnings;

package KeyedMutex::Lock;

sub _new {
    my ($klass, $km) = @_;
    $klass = ref($klass) || $klass;
    bless \$km, $klass;
}

sub DESTROY {
    my $self = shift;
    ${$self}->release;
}

1;

__END__