use strict;
sub _new {
my ($klass, $km) = @_;
$klass = ref($klass) || $klass;
bless \$km, $klass;
}
sub DESTROY {
my $self = shift;
${$self}->release;
}
1;
__END__
=head1 NAME
KeyedMutex::Lock - A lock object for KeyedMutex
=head1 DESCRIPTION
There are no public methods exposed from the module. See documentation of C<KeyedMutex> for detail.
=head1 AUTHOR
Copyright (c) 2007 Cybozu Labs, Inc. All rights reserved.
written by Kazuho Oku E<lt>kazuhooku@gmail.comE<gt>
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it under th
e same terms as Perl itself.
=cut