## name No code
## failures 0
## cut
=pod
=head1 NO CODE IN HERE
=cut
#-----------------------------------------------------------------------------
## name No POD
## failures 0
## cut
#!/usr/bin/perl
print 'Hello World';
#-----------------------------------------------------------------------------
## name Missing many sections
## failures 10
## cut
#!/usr/bin/perl
print 'Hello World';
__END__
=head1 NAME
Blah...
=head1 DESCRIPTION
Blah...
=head1 USAGE
Blah...
#-----------------------------------------------------------------------------
## name No shebang, this is a library
## failures 8
## cut
#No shebang, this is a library
#POD is inline with code too
=head1 NAME
Blah...
=head1 DESCRIPTION
Blah...
=cut
print 'Hello World';
=head1 SUBROUTINES/METHODS
Blah...
=cut
sub foobar {}
=head1 AUTHOR
Santa Claus
=cut
#-----------------------------------------------------------------------------
## name Passing parms, for a library
## failures 0
## parms {lib_sections => 'mi nombre | el descripcion'}
## cut
print 'Hello World';
__END__
=head1 MI NOMBRE
Blah...
=head1 EL DESCRIPCION
Blah...
=cut
#-----------------------------------------------------------------------------
## name Passing parms, for a program
## failures 0
## parms {script_sections => 'mi nombre | el descripcion'}
## cut
#!/usr/bin/perl
__END__
=head1 MI NOMBRE
Blah...
=head1 EL DESCRIPCION
Blah...
=cut
#-----------------------------------------------------------------------------
## name Disable with annotation, for a library (RT #59268)
## failures 0
## cut
print 'Hello World';
## no critic (RequirePodSections)
__END__
=head1 MI NOMBRE
Blah...
=head1 EL DESCRIPCION
Blah...
=cut
#-----------------------------------------------------------------------------
## name Disable with annotation, for a program (RT #59268)
## failures 0
## cut
#!/usr/bin/perl
## no critic (RequirePodSections)
__END__
=head1 MI NOMBRE
Blah...
=head1 EL DESCRIPCION
Blah...
=cut
#-----------------------------------------------------------------------------
## name Don't die if we don't have a head1 to report against. RT #67231
## failures 1
## parms { lib_sections => 'NAME' }
## cut
warn "Trouble ahead"; # Needed because we ignore files without code
=pod
Fubar
=cut
##############################################################################
# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/Documentation/RequirePodSections.run $
# $Date: 2011-04-04 17:22:51 -0700 (Mon, 04 Apr 2011) $
# $Author: wyant $
# $Revision: 4063 $
##############################################################################
# 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 :