git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/Modules/RequireEndWithOne.run

   1 ## name no code, no need for a one
   2 ## failures 0
   3 ## cut
   4 =pod
   5
   6 =head1 NO CODE IN HERE
   7
   8 =cut
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name basic pass
  13 ## failures 0
  14 ## cut
  15 1;
  16
  17 #-----------------------------------------------------------------------------
  18
  19 ## name pass with __END__
  20 ## failures 0
  21 ## cut
  22 1;
  23 __END__
  24
  25 #-----------------------------------------------------------------------------
  26
  27 ## name pass with __DATA__
  28 ## failures 0
  29 ## cut
  30 1;
  31 __DATA__
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name pass with comments at the end
  36 ## failures 0
  37 ## cut
  38 1;
  39 # The end
  40
  41 #-----------------------------------------------------------------------------
  42
  43 ## name pass with comment on the same line
  44 ## failures 0
  45 ## cut
  46 1; # final true value
  47
  48 #-----------------------------------------------------------------------------
  49
  50 ## name pass with extra space
  51 ## failures 0
  52 ## cut
  53 1  ;   #With extra space.
  54
  55 #-----------------------------------------------------------------------------
  56
  57 ## name pass with more spacing
  58 ## failures 0
  59 ## cut
  60   1  ;   #With extra space.
  61
  62 #-----------------------------------------------------------------------------
  63
  64 ## name pass with 1 on last line, but not last statement
  65 ## failures 0
  66 ## cut
  67 $foo = 2; 1;   #On same line..
  68
  69 #-----------------------------------------------------------------------------
  70
  71 ## name fails with 0
  72 ## failures 1
  73 ## cut
  74 0;
  75
  76 #-----------------------------------------------------------------------------
  77
  78 ## name fail with closing sub
  79 ## failures 1
  80 ## cut
  81 1;
  82 sub foo {}
  83
  84 #-----------------------------------------------------------------------------
  85
  86 ## name fail with END block
  87 ## failures 1
  88 ## cut
  89 1;
  90 END {}
  91
  92 #-----------------------------------------------------------------------------
  93
  94 ## name fail with a non-zero true value
  95 ## failures 1
  96 ## cut
  97 'Larry';
  98
  99 #-----------------------------------------------------------------------------
 100
 101 ## name DESTROY sub hides the 1;
 102 ## TODO This is a PPI bug. See http://rt.cpan.org/Ticket/Display.html?id=27364
 103 ## failures 0
 104 ## cut
 105
 106 DESTROY { warn 'DEAD'; }
 107
 108 1;
 109