line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package XT::Files::File; |
2
|
|
|
|
|
|
|
|
3
|
35
|
|
|
35
|
|
71239
|
use 5.006; |
|
35
|
|
|
|
|
132
|
|
4
|
35
|
|
|
35
|
|
194
|
use strict; |
|
35
|
|
|
|
|
77
|
|
|
35
|
|
|
|
|
862
|
|
5
|
35
|
|
|
35
|
|
188
|
use warnings; |
|
35
|
|
|
|
|
95
|
|
|
35
|
|
|
|
|
1683
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
our $VERSION = '0.002'; |
8
|
|
|
|
|
|
|
|
9
|
35
|
|
|
35
|
|
697
|
use Class::Tiny 1 qw(name); |
|
35
|
|
|
|
|
2376
|
|
|
35
|
|
|
|
|
200
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
use overload ( |
12
|
142
|
|
|
142
|
|
13737
|
q{""} => sub { shift->name }, |
13
|
3
|
|
|
3
|
|
1791
|
bool => sub () { return 1 }, |
14
|
35
|
|
|
|
|
368
|
fallback => 1, |
15
|
35
|
|
|
35
|
|
42611
|
); |
|
35
|
|
|
|
|
25536
|
|
16
|
|
|
|
|
|
|
|
17
|
35
|
|
|
35
|
|
3313
|
use Carp (); |
|
35
|
|
|
|
|
73
|
|
|
35
|
|
|
|
|
9677
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub BUILD { |
20
|
74
|
|
|
74
|
0
|
6992
|
my ( $self, $args ) = @_; |
21
|
|
|
|
|
|
|
|
22
|
74
|
100
|
|
|
|
1792
|
Carp::croak 'name attribute required' if !defined $self->name; |
23
|
|
|
|
|
|
|
|
24
|
73
|
100
|
|
|
|
1112
|
$self->{_module} = $args->{is_module} ? 1 : q{}; |
25
|
73
|
100
|
|
|
|
209
|
$self->{_pod} = $args->{is_pod} ? 1 : q{}; |
26
|
73
|
100
|
|
|
|
161
|
$self->{_script} = $args->{is_script} ? 1 : q{}; |
27
|
73
|
100
|
|
|
|
172
|
$self->{_test} = $args->{is_test} ? 1 : q{}; |
28
|
|
|
|
|
|
|
|
29
|
73
|
|
|
|
|
159
|
return; |
30
|
|
|
|
|
|
|
} |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
sub is_module { |
33
|
47
|
|
|
47
|
0
|
23427
|
my ($self) = @_; |
34
|
|
|
|
|
|
|
|
35
|
47
|
100
|
|
|
|
322
|
return $self->{_module} ? 1 : q{}; |
36
|
|
|
|
|
|
|
} |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
sub is_pod { |
39
|
45
|
|
|
45
|
0
|
101
|
my ($self) = @_; |
40
|
|
|
|
|
|
|
|
41
|
45
|
100
|
|
|
|
247
|
return $self->{_pod} ? 1 : q{}; |
42
|
|
|
|
|
|
|
} |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
sub is_script { |
45
|
51
|
|
|
51
|
0
|
106
|
my ($self) = @_; |
46
|
|
|
|
|
|
|
|
47
|
51
|
100
|
|
|
|
271
|
return $self->{_script} ? 1 : q{}; |
48
|
|
|
|
|
|
|
} |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
sub is_test { |
51
|
46
|
|
|
46
|
0
|
104
|
my ($self) = @_; |
52
|
|
|
|
|
|
|
|
53
|
46
|
100
|
|
|
|
236
|
return $self->{_test} ? 1 : q{}; |
54
|
|
|
|
|
|
|
} |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
1; |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
__END__ |