line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# -*- cperl -*- |
2
|
|
|
|
|
|
|
# |
3
|
|
|
|
|
|
|
# This program is free software; you can redistribute it and/or |
4
|
|
|
|
|
|
|
# modify it under the same terms as Perl itself. |
5
|
|
|
|
|
|
|
# |
6
|
|
|
|
|
|
|
# Copyright (C) 2002-2014 Jens Thoms Toerring |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
# Alias for package for File::FcntlLock |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
package File::FcntlLock::XS; |
12
|
|
|
|
|
|
|
|
13
|
4
|
|
|
4
|
|
2184
|
use v5.6.1; |
|
4
|
|
|
|
|
12
|
|
|
4
|
|
|
|
|
164
|
|
14
|
4
|
|
|
4
|
|
20
|
use strict; |
|
4
|
|
|
|
|
8
|
|
|
4
|
|
|
|
|
96
|
|
15
|
4
|
|
|
4
|
|
16
|
use warnings; |
|
4
|
|
|
|
|
8
|
|
|
4
|
|
|
|
|
96
|
|
16
|
4
|
|
|
4
|
|
16
|
use base qw( File::FcntlLock ); |
|
4
|
|
|
|
|
4
|
|
|
4
|
|
|
|
|
2196
|
|
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
our $VERSION = File::FcntlLock->VERSION; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
our @EXPORT = @File::FcntlLock::EXPORT; |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
1; |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
# Local variables: |
27
|
|
|
|
|
|
|
# tab-width: 4 |
28
|
|
|
|
|
|
|
# indent-tabs-mode: nil |
29
|
|
|
|
|
|
|
# End: |