vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/ClassHierarchies/ProhibitAutoloading.run

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 sub autoload {}
   6 my $AUTOLOAD = 'foo';
   7 our @AUTOLOAD = qw(nuts);
   8
   9 #-----------------------------------------------------------------------------
  10
  11 ## name Empty AUTOLOAD()
  12 ## failures 1
  13 ## cut
  14
  15 sub AUTOLOAD {}
  16
  17 #-----------------------------------------------------------------------------
  18
  19 ## name AUTOLOAD() with code
  20 ## failures 1
  21 ## cut
  22
  23 sub AUTOLOAD {
  24      $foo, $bar = @_;
  25      return $baz;
  26 }
  27
  28 #-----------------------------------------------------------------------------
  29
  30 ##############################################################################
  31 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ClassHierarchies/ProhibitAutoloading.run $
  32 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  33 #   $Author: clonezone $
  34 # $Revision: 2187 $
  35 ##############################################################################
  36
  37 # Local Variables:
  38 #   mode: cperl
  39 #   cperl-indent-level: 4
  40 #   fill-column: 78
  41 #   indent-tabs-mode: nil
  42 #   c-indentation-style: bsd
  43 # End:
  44 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :