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
|
## name no code, no need for a one
## failures 0
## cut
=pod
=head1 NO CODE IN HERE
=cut
#-----------------------------------------------------------------------------
## name basic pass
## failures 0
## cut
1;
#-----------------------------------------------------------------------------
## name pass with __END__
## failures 0
## cut
1;
__END__
#-----------------------------------------------------------------------------
## name pass with __DATA__
## failures 0
## cut
1;
__DATA__
#-----------------------------------------------------------------------------
## name pass with comments at the end
## failures 0
## cut
1;
# The end
#-----------------------------------------------------------------------------
## name pass with comment on the same line
## failures 0
## cut
1; # final true value
#-----------------------------------------------------------------------------
## name pass with extra space
## failures 0
## cut
1 ; #With extra space.
#-----------------------------------------------------------------------------
## name pass with more spacing
## failures 0
## cut
1 ; #With extra space.
#-----------------------------------------------------------------------------
## name pass with 1 on last line, but not last statement
## failures 0
## cut
$foo = 2; 1; #On same line..
#-----------------------------------------------------------------------------
## name fails with 0
## failures 1
## cut
0;
#-----------------------------------------------------------------------------
## name fail with closing sub
## failures 1
## cut
1;
sub foo {}
#-----------------------------------------------------------------------------
## name fail with END block
## failures 1
## cut
1;
END {}
#-----------------------------------------------------------------------------
## name fail with a non-zero true value
## failures 1
## cut
'Larry';
#-----------------------------------------------------------------------------
## name programs are exempt
## failures 0
## parms
## cut
#!/usr/bin/perl
my $foo = 42;
#-----------------------------------------------------------------------------
## name DESTROY sub hides the 1; (RT #27364)
## failures 0
## cut
DESTROY { warn 'DEAD'; }
1;
#-----------------------------------------------------------------------------
## name PPI parsing problem saw this as not ending with 1 (GH #696)
## failures 0
## cut
package UQ::Net::AddressSpace;
use warnings;
use strict;
sub v4_block { my ($self, $id) = @_; return $self->_sub_hash(['id', $id, 'v4-block']); }
1;
#-----------------------------------------------------------------------------
## name Second PPI parsing problem (GH #607)
## failures 0
## cut
package Fail;
use strict;
use warnings;
sub x64_flag {
my $self = shift;
return $self->{param}{perl_64b};
}
1;
#-----------------------------------------------------------------------------
# Local Variables:
# mode: cperl
# cperl-indent-level: 4
# fill-column: 78
# indent-tabs-mode: nil
# c-indentation-style: bsd
# End:
# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :
|
