From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

ELLIOTJS / Perl-Critic-1.095_001 / t / Modules / RequireEndWithOne.run 

            

              
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

              
## 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;
## TODO This is a PPI bug. See http://rt.cpan.org/Ticket/Display.html?id=27364
## failures 0
## cut
DESTROY { warn 'DEAD'; }
1;
#-----------------------------------------------------------------------------
##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/Modules/RequireEndWithOne.run $
#     $Date: 2008-12-21 13:50:35 -0600 (Sun, 21 Dec 2008) $
#   $Author: clonezone $
# $Revision: 2921 $
##############################################################################
# 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 :