+++ /dev/null
-##############################################################################
-# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/RegularExpressions/RequireLineBoundaryMatching.run $
-# $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
-# $Author: clonezone $
-# $Revision: 2187 $
-##############################################################################
-
-## name basic passes
-## failures 0
-## cut
-my $string =~ m{pattern}m;
-my $string =~ m{pattern}gimx;
-my $string =~ m{pattern}gmis;
-my $string =~ m{pattern}mgxs;
-
-my $string =~ m/pattern/m;
-my $string =~ m/pattern/gimx;
-my $string =~ m/pattern/gmis;
-my $string =~ m/pattern/mgxs;
-
-my $string =~ /pattern/m;
-my $string =~ /pattern/gimx;
-my $string =~ /pattern/gmis;
-my $string =~ /pattern/mgxs;
-
-my $string =~ s/pattern/foo/m;
-my $string =~ s/pattern/foo/gimx;
-my $string =~ s/pattern/foo/gmis;
-my $string =~ s/pattern/foo/mgxs;
-
-my $re = qr/pattern/m;
-
-#-----------------------------------------------------------------------------
-
-## name basic failures
-## failures 17
-## cut
-my $string =~ m{pattern};
-my $string =~ m{pattern}gix;
-my $string =~ m{pattern}gis;
-my $string =~ m{pattern}gxs;
-
-my $string =~ m/pattern/;
-my $string =~ m/pattern/gix;
-my $string =~ m/pattern/gis;
-my $string =~ m/pattern/gxs;
-
-my $string =~ /pattern/;
-my $string =~ /pattern/gix;
-my $string =~ /pattern/gis;
-my $string =~ /pattern/gxs;
-
-my $string =~ s/pattern/foo/;
-my $string =~ s/pattern/foo/gix;
-my $string =~ s/pattern/foo/gis;
-my $string =~ s/pattern/foo/gxs;
-
-my $re = qr/pattern/;
-
-#-----------------------------------------------------------------------------
-
-## name tr and y checking
-## failures 0
-## cut
-my $string =~ tr/[A-Z]/[a-z]/;
-my $string =~ tr|[A-Z]|[a-z]|;
-my $string =~ tr{[A-Z]}{[a-z]};
-
-my $string =~ y/[A-Z]/[a-z]/;
-my $string =~ y|[A-Z]|[a-z]|;
-my $string =~ y{[A-Z]}{[a-z]};
-
-my $string =~ tr/[A-Z]/[a-z]/cds;
-my $string =~ y/[A-Z]/[a-z]/cds;
-
-#-----------------------------------------------------------------------------
-# Local Variables:
-# mode: cperl
-# cperl-indent-level: 4
-# fill-column: 78
-# indent-tabs-mode: nil
-# c-indentation-style: bsd
-# End:
-# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :