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
|
## name perl version
## failures 0
## cut
use v5.18;
print 42;
## name File::Spec
## failures 1
## cut
use File::Spec;
print 42;
## name File::Which is used
## failures 0
## cut
use File::Which;
my $prog = which('ls');
## name File::Which is unused
## failures 1
## cut
use File::Which;
my $prog = "/bin/ls";
## TODO File::Which used in 'constant'
## failures 0
## cut
use File::Which;
use constant PROG => which("ls");
print "ls is: " . PROg;
## name Try::Tiny
## failures 1
## cut
use Try::Tiny;
print 42;
## name Try::Tiny + File::Spec
## failures 2
## cut
use Try::Tiny;
use File::Spec;
print 42;
## name -Try::Tiny +File::Spec
## failures 1
## cut
use Try::Tiny;
use File::Spec;
try { print 42; };
## name -Try::Tiny -File::Spec
## failures 0
## cut
use Try::Tiny;
use File::Spec;
try { print File::Spec->catfile("answer" => 42); };
## name +Try::Tiny -File::Spec
## failures 1
## cut
use Try::Tiny;
use File::Spec;
print File::Spec->catfile("answer" => 42);
## name +Try::Lite
## failures 1
## cut
use Try::Lite;
print localtime();
## name Generic: use Foobar -- but we do not know how to verify if it is used.
## failures 0
## cut
use Foobar;
print 42;
## name Generic: use Something objectively.
## failures 0
## cut
use Foobar;
use Something;
Something->process( localtime() );
## name Generic: use Something functionally.
## failures 0
## cut
use Foobar;
use Something;
Something::process( localtime() );
## name Hijk (unused)
## failures 1
## cut
use Hijk;
print something();
## name Hijk::request
## failures 0
## cut
use Hijk;
Hijk::request($req);
## name Moo
## failures 0
## cut
use Moo;
has zzz => ( is => "rw" );
## name self;
## failures 0
## cut
use self;
sub fnord {
print $self->darf;
}
## name Generic: with imported symbols.
## failures 0
## cut
use Foo qw(bar);
my $a = 42;
bar($a);
## name Pragmatism
## failures 0
## cut
use Test::NoWarnings;
print 42;
|
