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

ELLIOTJS / Perl-Critic-1.101_003 / t / Documentation / RequirePodAtEnd.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

              
## name No code at all
## failures 0
## cut
#Nothing!  No code!
#-----------------------------------------------------------------------------
## name Just an END section
## failures 0
## cut
__END__
#Nothing!
#-----------------------------------------------------------------------------
## name only one pod section
## failures 1
## cut
=head1 Foo
=cut
#-----------------------------------------------------------------------------
## name only one pod section, at the end
## failures 0
## cut
__END__
=head1 Foo
=cut
#-----------------------------------------------------------------------------
## name some pod sections OK not at the end
## failures 0
## cut
=for comment
This POD is ok
=cut
__END__
=head1 Foo
=cut
#-----------------------------------------------------------------------------
## name but main pod still has to be at the end
## failures 1
## cut
=for comment
This POD is ok
=cut
=head1 Foo
This POD is illegal
=cut
=begin comment
This POD is ok
This POD is also ok
=end comment
=cut
__END__
=head1 Bar
=cut
#-----------------------------------------------------------------------------
## name more =for exceptions
## failures 0
## cut
=for comment
This is a one-line comment
=cut
my $baz = 'nuts';
__END__
#-----------------------------------------------------------------------------
## name =begin exceptions
## failures 0
## cut
=begin comment
Multi-paragraph comment
Mutli-paragrapm comment
=end comment
=cut
__END__
##############################################################################
#      $URL: http://perlcritic.tigris.org/svn/perlcritic/branches/Perl-Critic-PPI-1.204/t/Documentation/RequirePodAtEnd.run $
#     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
#   $Author: clonezone $
# $Revision: 2187 $
##############################################################################
# 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 :