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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Subroutines/RequireArgUnpacking.run $
   3 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
   4 #   $Author: clonezone $
   5 # $Revision: 2187 $
   6 ##############################################################################
   7
   8 ## name basic passes
   9 ## failures 0
  10 ## cut
  11
  12 sub forward;
  13
  14 sub foo {
  15    my ($self, $bar) = @_;
  16    print $bar;
  17    return;
  18 }
  19
  20 sub fu {
  21    my $self = shift;
  22    my $bar = shift;
  23    print $bar;
  24    return;
  25 }
  26
  27 #-----------------------------------------------------------------------------
  28
  29 ## name prototype passes
  30 ## failures 0
  31 ## cut
  32
  33 sub foo() {
  34    print $bar;
  35    return;
  36 }
  37
  38 #-----------------------------------------------------------------------------
  39
  40 ## name scheduled subs
  41 ## failures 0
  42 ## cut
  43
  44 BEGIN {
  45   print 1;
  46   print 2;
  47   print 3;
  48 }
  49
  50 INIT {
  51   print 1;
  52   print 2;
  53   print 3;
  54 }
  55
  56 CHECK {
  57   print 1;
  58   print 2;
  59   print 3;
  60 }
  61
  62 END {
  63   print 1;
  64   print 2;
  65   print 3;
  66 }
  67
  68 #-----------------------------------------------------------------------------
  69
  70 ## name passes - no arguments
  71 ## failures 0
  72 ## cut
  73
  74 sub few { }
  75 sub phu { 1; }
  76 sub phoo { return; }
  77
  78 #-----------------------------------------------------------------------------
  79
  80 ## name failure - not idiomatic enough
  81 ## failures 2
  82 ## cut
  83
  84 sub quux {
  85     my $self = shift @_;
  86     print $self;
  87 }
  88
  89 sub cwux {
  90     my ($self) = ($_[0]);
  91     print $self;
  92 }
  93
  94 #-----------------------------------------------------------------------------
  95
  96 ## name basic failures
  97 ## failures 2
  98 ## cut
  99
 100 sub bar {
 101   print $_[0];
 102   print $_[1];
 103   print $_[2];
 104   print $_[3];
 105 }
 106
 107 sub barr {
 108   print $_[1];
 109 }
 110
 111 #-----------------------------------------------------------------------------
 112
 113 ## name failure in an anonymous sub
 114 ## failures 1
 115 ## TODO PPI v1.118 doesn't recognize anonymous subroutines
 116 ## cut
 117
 118 my $x = bar {
 119   print $_[0];
 120   print $_[1];
 121   print $_[2];
 122   print $_[3];
 123 }
 124
 125 #-----------------------------------------------------------------------------
 126
 127 ## name basic failures, set config higher
 128 ## failures 1
 129 ## parms {short_subroutine_statements => 1}
 130 ## cut
 131
 132 sub bar {
 133   print $_[0];
 134   print $_[1];
 135   print $_[2];
 136   print $_[3];
 137 }
 138
 139 sub barr {
 140   print $_[1];
 141 }
 142
 143 #-----------------------------------------------------------------------------
 144
 145 ## name mixed failures
 146 ## failures 2
 147 ## cut
 148
 149 sub baz {
 150   my $self = shift;
 151   print $_[0];
 152   print $_[1];
 153   print $_[2];
 154   print $_[3];
 155 }
 156
 157 sub baaz {
 158   my ($self) = @_;
 159   print $_[0];
 160   print $_[1];
 161   print $_[2];
 162   print $_[3];
 163 }
 164
 165 #-----------------------------------------------------------------------------
 166
 167 ## name nested anon sub
 168 ## failures 0
 169 ## cut
 170
 171 sub baz {
 172     print "here\n";
 173     return sub {
 174         my ($self) = @_;
 175         print $self->{bar};
 176     };
 177 }
 178
 179 #-----------------------------------------------------------------------------
 180
 181 ## name nested name sub
 182 ## failures 0
 183 ## cut
 184
 185 sub baz {
 186     print "here\n";
 187     sub bar {
 188         my ($self) = @_;
 189         print $self->{bar};
 190     }
 191     $x->bar();
 192 }
 193
 194 #-----------------------------------------------------------------------------
 195 # Local Variables:
 196 #   mode: cperl
 197 #   cperl-indent-level: 4
 198 #   fill-column: 78
 199 #   indent-tabs-mode: nil
 200 #   c-indentation-style: bsd
 201 # End:
 202 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :