From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

LION / File-Information-v0.06 / lib / File / Information / Lock.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
—
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116

              
# Copyright (c) 2024-2025 Löwenfelsen UG (haftungsbeschränkt)
# licensed under Artistic License 2.0 (see LICENSE file)
# ABSTRACT: generic module for extracting information from filesystems
package File::Information::Lock;
use v5.10;
use strict;
use warnings;
use Carp;
our $VERSION = v0.06;
sub new {
    my ($pkg, %opts) = @_;
    my $self = bless \%opts, $pkg;
    $self->{instance} = $self->{parent}->instance unless defined $self->{instance};
    croak 'No instance is given'    unless defined $self->{instance};
    croak 'No parent is given'      unless defined $self->{parent};
    croak 'No on_unlock is given'   unless defined $self->{on_unlock};
    return $self;
}
sub instance {
    my ($self) = @_;
    return $self->{instance};
}
sub parent {
    my ($self) = @_;
    return $self->{parent};
}
# ----------------
sub DESTROY {
    my ($self) = @_;
    my $func = $self->{on_unlock};
    $self->parent->$func($self);
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
File::Information::Lock - generic module for extracting information from filesystems
=head1 VERSION
version v0.06
=head1 SYNOPSIS
    use File::Information;
    my File::Information::Lock $lock = $obj->lock;
This package is used to represent locks on resources and objects.
The lock is hold until the last reference to the object is gone.
=head1 METHODS
=head2 new
    my File::Information::Lock $lock = File::Information::Lock->new([ instance => $instance, ] parent => $parent, on_unlock => \&unlock_sub);
Returns a new lock object. Requires an instance (L<File::Information>), a parent object (what is locked), and an unlock function.
If no instance is given C<$parent-E<gt>instance> is called to obtain one.
Once this lock is gone the unlock function is called. It is normally a private method of the object that is locked.
The unlock function is responsible of handling the case with multiple lock objects being alive at the same time. So any unlock function must check
if all locks are gone before performing an actual unlock. The unlock function is called on C<$parent> and passing the lock as first argument.
=head2 instance
    my File::Information $instance = $lock->instance;
Returns the instance that was used to create this object.
=head2 parent
    my $parent = $lock->parent;
Returns the parent that was used to create this object.
=head1 AUTHOR
Löwenfelsen UG (haftungsbeschränkt) <support@loewenfelsen.net>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2024-2025 by Löwenfelsen UG (haftungsbeschränkt) <support@loewenfelsen.net>.
This is free software, licensed under:
  The Artistic License 2.0 (GPL Compatible)
=cut