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

   1 ##############################################################################
   2 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/RequireExtendedFormatting.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 my $string =~ m{pattern}x;
  12 my $string =~ m{pattern}gimx;
  13 my $string =~ m{pattern}gixs;
  14 my $string =~ m{pattern}xgms;
  15
  16 my $string =~ m/pattern/x;
  17 my $string =~ m/pattern/gimx;
  18 my $string =~ m/pattern/gixs;
  19 my $string =~ m/pattern/xgms;
  20
  21 my $string =~ /pattern/x;
  22 my $string =~ /pattern/gimx;
  23 my $string =~ /pattern/gixs;
  24 my $string =~ /pattern/xgms;
  25
  26 my $string =~ s/pattern/foo/x;
  27 my $string =~ s/pattern/foo/gimx;
  28 my $string =~ s/pattern/foo/gixs;
  29 my $string =~ s/pattern/foo/xgms;
  30
  31 my $re =~ qr/pattern/x;
  32
  33 #-----------------------------------------------------------------------------
  34
  35 ## name basic failures
  36 ## failures 17
  37 ## cut
  38 my $string =~ m{pattern};
  39 my $string =~ m{pattern}gim;
  40 my $string =~ m{pattern}gis;
  41 my $string =~ m{pattern}gms;
  42
  43 my $string =~ m/pattern/;
  44 my $string =~ m/pattern/gim;
  45 my $string =~ m/pattern/gis;
  46 my $string =~ m/pattern/gms;
  47
  48 my $string =~ /pattern/;
  49 my $string =~ /pattern/gim;
  50 my $string =~ /pattern/gis;
  51 my $string =~ /pattern/gms;
  52
  53 my $string =~ s/pattern/foo/;
  54 my $string =~ s/pattern/foo/gim;
  55 my $string =~ s/pattern/foo/gis;
  56 my $string =~ s/pattern/foo/gms;
  57
  58 my $re =~ qr/pattern/;
  59
  60 #-----------------------------------------------------------------------------
  61
  62 ## name tr and y formatting
  63 ## failures 0
  64 ## cut
  65
  66 my $string =~ tr/[A-Z]/[a-z]/;
  67 my $string =~ tr|[A-Z]|[a-z]|;
  68 my $string =~ tr{[A-Z]}{[a-z]};
  69
  70 my $string =~ y/[A-Z]/[a-z]/;
  71 my $string =~ y|[A-Z]|[a-z]|;
  72 my $string =~ y{[A-Z]}{[a-z]};
  73
  74 my $string =~ tr/[A-Z]/[a-z]/cds;
  75 my $string =~ y/[A-Z]/[a-z]/cds;
  76
  77 #-----------------------------------------------------------------------------
  78 # Local Variables:
  79 #   mode: cperl
  80 #   cperl-indent-level: 4
  81 #   fill-column: 78
  82 #   indent-tabs-mode: nil
  83 #   c-indentation-style: bsd
  84 # End:
  85 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :