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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Subroutines/ProhibitManyArgs.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 }
  17
  18 sub fu {
  19    my $self = shift;
  20    my $bar = shift;
  21 }
  22
  23 sub foo($$) {
  24    print $_[0];
  25    return;
  26 }
  27
  28 #-----------------------------------------------------------------------------
  29
  30 ## name simple failures
  31 ## failures 3
  32 ## cut
  33
  34 sub foo {
  35    my ($self, $bar1, $bar2, $bar3, $bar4, $bar5) = @_;
  36 }
  37
  38 sub fu {
  39    my $self = shift;
  40    my $bar1 = shift;
  41    my $bar2 = shift;
  42    my $bar3 = shift;
  43    my $bar4 = shift;
  44    my $bar5 = shift;
  45 }
  46
  47 sub foo($$$$$$) {
  48    print $_[0];
  49    return;
  50 }
  51
  52 #-----------------------------------------------------------------------------
  53
  54 ## name configured failures
  55 ## failures 3
  56 ## parms {max_arguments => 3}
  57 ## cut
  58
  59 sub foo {
  60    my ($self, $bar1, $bar2, $bar3) = @_;
  61 }
  62
  63 sub fu {
  64    my $self = shift;
  65    my $bar1 = shift;
  66    my $bar2 = shift;
  67    my $bar3 = shift;
  68 }
  69
  70 sub foo($$$$) {
  71    print $_[0];
  72    return;
  73 }
  74
  75 #-----------------------------------------------------------------------------
  76
  77 ## name configured successes
  78 ## failures 0
  79 ## parms {max_arguments => 3}
  80 ## cut
  81
  82 sub foo_ok {
  83    my ($self, $bar1, $bar2) = @_;
  84 }
  85
  86 sub fu_ok {
  87    my $self = shift;
  88    my $bar1 = shift;
  89    my $bar2 = shift;
  90 }
  91
  92 sub foo_ok($$$) {
  93    print $_[0];
  94    return;
  95 }
  96
  97 #-----------------------------------------------------------------------------
  98 # Local Variables:
  99 #   mode: cperl
 100 #   cperl-indent-level: 4
 101 #   fill-column: 78
 102 #   indent-tabs-mode: nil
 103 #   c-indentation-style: bsd
 104 # End:
 105 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :