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 vars pragma
## failures 0
## cut
use vars qw(%foo);
print 42;
## name Data::Dumper;
## failures 1
## cut
use Data::Dumper qw<Dumper>;
print 42;
## name Getopt::Long config
## failures 0
## cut
use Getopt::Long qw(:config bundling);
print 42;
## name Read
## failures 0
## cut
use Encode qw( decode );
my $val = decode ("utf-16be", $val);
## name Bin
## failures 0
## cut
use FindBin qw( $RealBin );
my $prog = $RealBin . "/../foo.pl";
## name used in ternary op
## failures 0
## cut
use Foo qw( FOO BAR BAZ );
my $fb = hoi () ? FOO :
hai () ? BAR :
hui () ? BAZ ;
## name Importer syntax. 1
## failures 1
## cut
use Importer 'Foo' => qw( BAR );
print 42;
## name Importer syntax. 2
## failures 2
## cut
use Importer 'Foo' => qw( BAR QUX );
print 42;
## todo Importer syntax. List of str
## failures 2
## cut
use Importer 'Foo' => ( 'BAR', 'QUX' );
print 42;
## todo General syntax. List of str
## failures 2
## cut
use Foo ('BAR', 'QUX');
print 42;
## name Exporter
## failures 0
## cut
use Exporter qw/import/;
print 42;
## name Test::Requires
## failures 0
## cut
use Test::Requires qw/DBI/;
print 42;
## name subroutine ref
## failures 0
## cut
use Encode qw( decode );
my $ref = \&decode;
## name $Bin. issue 19
## failures 0
## cut
use FindBin qw( $Bin );
use lib "$Bin/../../../../";
my $bar;
## name $Bin. issue 19.
## failures 0
## cut
use FindBin qw( $Bin );
use lib $Bin . "/../../../../";
## name $Bin in interpolated string in print. issue 19.
## failures 0
## cut
use FindBin qw( $Bin );
my $bar;
print "Here it is: $Bin";
## name re-exporting is a form of using. with @EXPORT_OK. github issue 18.
## failures 0
## cut
use Foo qw( foo $bar @baz );
our @EXPORT_OK = qw(foo $bar @baz);
## name re-exporting is a form of using. with @EXPORT. github issue 18.
## failures 0
## cut
use Foo qw( foo $bar @baz );
our @EXPORT = qw(foo $bar @baz);
## name re-exporting. with code sample from github issue 18.
## failures 0
## cut
use Mojo::JSON qw(decode_json encode_json);
{
our @EXPORT_OK = qw(
decode_json
encode_json
);
}
## name other var assigments with symbols in their literal forms should not be counted as usage
## failures 3
## cut
use Foo qw(foo $bar @baz);
my @foo = qw(foo $bar @baz);
|
