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

   1 ## name Basic passing
   2 ## failures 0
   3 ## cut
   4
   5 print "this is not $literal";
   6 print qq{this is not $literal};
   7 print "this is not literal\n";
   8 print qq{this is not literal\n};
   9
  10 #-----------------------------------------------------------------------------
  11
  12 ## name Basic failure
  13 ## failures 4
  14 ## cut
  15
  16 print 'this is not $literal';
  17 print q{this is not $literal};
  18 print 'this is not literal\n';
  19 print q{this is not literal\n};
  20
  21 #-----------------------------------------------------------------------------
  22
  23 ## name Sigil characters not looking like sigils
  24 ## failures 0
  25 ## cut
  26
  27 $sigil_at_end_of_word = 'list@ scalar$';
  28 $sigil_at_end_of_word = 'scalar$ list@';
  29 $sigil_at_end_of_word = q(list@ scalar$);
  30 $sigil_at_end_of_word = q(scalar$ list@);
  31 %options = (  'foo=s@' => \@foo);  #Like with Getopt::Long
  32 %options = ( q{foo=s@} => \@foo);  #Like with Getopt::Long
  33
  34 #-----------------------------------------------------------------------------
  35
  36 ## name Things that look like email addresses are exempt
  37 ## failures 0
  38 ## cut
  39
  40 $simple  = 'me@foo.bar';
  41 $complex = q{don-quixote@man-from.lamancha.org};
  42
  43 #-----------------------------------------------------------------------------
  44
  45 ## name Email address is part of larger string
  46 ## TODO False positive: we should allow this but I'm feeling lazy right now.
  47 ## failures 0
  48 ## cut
  49
  50 $simple  = 'Email: me@foo.bar';
  51 $complex = q{"don-quixote@man-from.lamancha.org" is my address};
  52
  53 #-----------------------------------------------------------------------------
  54
  55 ##############################################################################
  56 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/RequireInterpolationOfMetachars.run $
  57 #     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
  58 #   $Author: clonezone $
  59 # $Revision: 2187 $
  60 ##############################################################################
  61
  62 # Local Variables:
  63 #   mode: cperl
  64 #   cperl-indent-level: 4
  65 #   fill-column: 78
  66 #   indent-tabs-mode: nil
  67 #   c-indentation-style: bsd
  68 # End:
  69 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :