git.maemo.org Git - dh-make-perl/blob - dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Documentation/RequirePodSections.run

   1 ## name No code
   2 ## failures 0
   3 ## cut
   4 =pod
   5
   6 =head1 NO CODE IN HERE
   7
   8 =cut
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name No POD
  13 ## failures 0
  14 ## cut
  15 #!/usr/bin/perl
  16 print 'Hello World';
  17
  18 #-----------------------------------------------------------------------------
  19
  20 ## name Missing many sections
  21 ## failures 10
  22 ## cut
  23 #!/usr/bin/perl
  24
  25 print 'Hello World';
  26
  27 __END__
  28
  29 =head1 NAME
  30
  31 Blah...
  32
  33 =head1   DESCRIPTION
  34
  35 Blah...
  36
  37 =head1 USAGE
  38
  39 Blah...
  40
  41 #-----------------------------------------------------------------------------
  42
  43 ## name No shebang, this is a library
  44 ## failures 8
  45 ## cut
  46 #No shebang, this is a library
  47 #POD is inline with code too
  48
  49 =head1 NAME
  50
  51 Blah...
  52
  53 =head1  DESCRIPTION
  54
  55 Blah...
  56
  57 =cut
  58
  59 print 'Hello World';
  60
  61 =head1  SUBROUTINES/METHODS
  62
  63 Blah...
  64
  65 =cut
  66
  67 sub foobar {}
  68
  69 =head1 AUTHOR
  70
  71 Santa Claus
  72
  73 =cut
  74
  75 #-----------------------------------------------------------------------------
  76
  77 ## name Passing parms, for a library
  78 ## failures 0
  79 ## parms {lib_sections => 'mi nombre | el descripcion'}
  80 ## cut
  81
  82 print 'Hello World';
  83
  84 __END__
  85
  86 =head1 MI NOMBRE
  87
  88 Blah...
  89
  90 =head1 EL DESCRIPCION
  91
  92 Blah...
  93
  94 =cut
  95
  96 #-----------------------------------------------------------------------------
  97
  98 ## name Passing parms, for a program
  99 ## failures 0
 100 ## parms {script_sections => 'mi nombre | el descripcion'}
 101 ## cut
 102 #!/usr/bin/perl
 103
 104 __END__
 105
 106 =head1 MI NOMBRE
 107
 108 Blah...
 109
 110 =head1 EL DESCRIPCION
 111
 112 Blah...
 113
 114 =cut
 115
 116 ##############################################################################
 117 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Documentation/RequirePodSections.run $
 118 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
 119 #   $Author: clonezone $
 120 # $Revision: 2187 $
 121 ##############################################################################
 122
 123 # Local Variables:
 124 #   mode: cperl
 125 #   cperl-indent-level: 4
 126 #   fill-column: 78
 127 #   indent-tabs-mode: nil
 128 #   c-indentation-style: bsd
 129 # End:
 130 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :