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

FSEITZ / Quiq-1.225 / lib / Quiq / LockedContent.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
117
118
119
120
—
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
—
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
—
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193

              
# -----------------------------------------------------------------------------
=head1 NAME
Quiq::LockedContent - Persistenter Dateininhalt mit Lock
=head1 BASE CLASS
L<Quiq::Object>
=head1 SYNOPSIS
  use Quiq::LockedContent;
   
  $obj = Quiq::LockedContent->new($file);
  $data = $obj->read;
  ...
  $obj->write($data);
=head1 DESCRIPTION
Die Klasse realisiert einen persisteten Inhalt mit Exklusiv-Lock.
Der Inhalt kann gelesen und geschrieben werden. Die Datei wird
gelockt. Der Lock wird bis zur Destrukturierung des Objekts
gehalten.
=cut
# -----------------------------------------------------------------------------
package Quiq::LockedContent;
use base qw/Quiq::Object/;
use v5.10;
use strict;
use warnings;
our $VERSION = '1.225';
use Quiq::Path;
use Quiq::FileHandle;
# -----------------------------------------------------------------------------
=head1 METHODS
=head2 Konstruktor/Destruktor
=head3 new() - Instantiiere Objekt
=head4 Synopsis
  $obj = Quiq::LockedContent->new($file);
=head4 Returns
Objekt
=cut
# -----------------------------------------------------------------------------
sub new {
    my $class = shift;
    my $file = Quiq::Path->expandTilde(shift);
    my $fh = Quiq::FileHandle->open('+>>',$file,-lock=>'EX');
    $fh->autoFlush;
    return bless [$file,$fh],$class;
}
# -----------------------------------------------------------------------------
=head3 close() - Destrukturiere Objekt
=head4 Synopsis
  $obj->close;
=head4 Alias
destroy()
=cut
# -----------------------------------------------------------------------------
sub close {
    $_[0] = undef;
}
{
    no warnings 'once';
    *destroy = \&close;
}
# -----------------------------------------------------------------------------
=head2 Operationen
=head3 file() - Dateipfad
=head4 Synopsis
  $file = $ctr->file;
=head4 Returns
Dateipfad (String)
=cut
# -----------------------------------------------------------------------------
sub file {
    return shift->[0];
}
# -----------------------------------------------------------------------------
=head3 read() - Lies Daten
=head4 Synopsis
  $data = $obj->read;
=head4 Returns
String
=cut
# -----------------------------------------------------------------------------
sub read {
    my $self = shift;
    my $fh = $self->[1];
    $fh->seek(0);
    return $fh->slurp;
}
# -----------------------------------------------------------------------------
=head3 write() - Schreibe Daten
=head4 Synopsis
  $obj->write($data);
=cut
# -----------------------------------------------------------------------------
sub write {
    my $self = shift;
    # @_: $data
    my $fh = $self->[1];
    $fh->truncate;
    $fh->print($_[0]);
    return;
}
# -----------------------------------------------------------------------------
=head1 VERSION
1.225
=head1 AUTHOR
Frank Seitz, L<http://fseitz.de/>
=head1 COPYRIGHT
Copyright (C) 2025 Frank Seitz
=head1 LICENSE
This code is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut
# -----------------------------------------------------------------------------
1;
# eof