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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 sub foo { my $bar = sub { 1 } }
   6 sub foo { } sub bar { }
   7
   8 #-----------------------------------------------------------------------------
   9
  10 ## name Basic failure
  11 ## failures 2
  12 ## cut
  13
  14 sub foo { sub bar { 1 } }
  15 sub foo { if (1) { do { sub bar { 1 } } } }
  16
  17 #-----------------------------------------------------------------------------
  18
  19 ##############################################################################
  20 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Subroutines/ProhibitNestedSubs.run $
  21 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  22 #   $Author: clonezone $
  23 # $Revision: 2187 $
  24 ##############################################################################
  25
  26 # Local Variables:
  27 #   mode: cperl
  28 #   cperl-indent-level: 4
  29 #   fill-column: 78
  30 #   indent-tabs-mode: nil
  31 #   c-indentation-style: bsd
  32 # End:
  33 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :