## name Basic passing
## failures 0
## cut
$x = q{};
$x = qq{};
$x = qx{};
$x = qr{};
$x = qw{};
$x =~ //;
$x =~ m{};
$x =~ s{}{};
$x =~ tr{}{};
$x =~ y{}{};
$x = qx'';
$x = qr'';
$x =~ m'';
$x =~ s''';
#-----------------------------------------------------------------------------
## name Basic failure
## failures 23
## cut
$x = q'';
$x = qq'';
$x = qw'';
$x =~ tr''';
$x =~ y''';
$x = q"";
$x = qq"";
$x = qx"";
$x = qr"";
$x = qw"";
$x =~ m"";
$x =~ s""";
$x =~ tr""";
$x =~ y""";
$x = q``;
$x = qq``;
$x = qx``;
$x = qr``;
$x = qw``;
$x =~ m``;
$x =~ s```;
$x =~ tr```;
$x =~ y```;
#-----------------------------------------------------------------------------
## name single_quote_allowed_operators = m q qq qr qw qx s tr y
## failures 0
## parms { single_quote_allowed_operators => 'm q qq qr qw qx s tr y' }
## cut
$x = q'';
$x = qq'';
$x = qx'';
$x = qr'';
$x = qw'';
$x =~ m'';
$x =~ s''';
$x =~ tr''';
$x =~ y''';
#-----------------------------------------------------------------------------
## name single_quote_allowed_operators =
## failures 9
## parms { single_quote_allowed_operators => '' }
## cut
$x = q'';
$x = qq'';
$x = qx'';
$x = qr'';
$x = qw'';
$x =~ m'';
$x =~ s''';
$x =~ tr''';
$x =~ y''';
#-----------------------------------------------------------------------------
## name double_quote_allowed_operators = m q qq qr qw qx s tr y
## failures 0
## parms { double_quote_allowed_operators => 'm q qq qr qw qx s tr y' }
## cut
$x = q"";
$x = qq"";
$x = qx"";
$x = qr"";
$x = qw"";
$x =~ m"";
$x =~ s""";
$x =~ tr""";
$x =~ y""";
#-----------------------------------------------------------------------------
## name double_quote_allowed_operators =
## failures 9
## parms { double_quote_allowed_operators => '' }
## cut
$x = q"";
$x = qq"";
$x = qx"";
$x = qr"";
$x = qw"";
$x =~ m"";
$x =~ s""";
$x =~ tr""";
$x =~ y""";
#-----------------------------------------------------------------------------
## name back_quote_allowed_operators = m q qq qr qw qx s tr y
## failures 0
## parms { back_quote_allowed_operators => 'm q qq qr qw qx s tr y' }
## cut
$x = q``;
$x = qq``;
$x = qx``;
$x = qr``;
$x = qw``;
$x =~ m``;
$x =~ s```;
$x =~ tr```;
$x =~ y```;
#-----------------------------------------------------------------------------
## name back_quote_allowed_operators =
## failures 9
## parms { back_quote_allowed_operators => '' }
## cut
$x = q``;
$x = qq``;
$x = qx``;
$x = qr``;
$x = qw``;
$x =~ m``;
$x =~ s```;
$x =~ tr```;
$x =~ y```;
##############################################################################
# $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/ValuesAndExpressions/ProhibitQuotesAsQuotelikeOperatorDelimiters.run $
# $Date: 2009-03-07 07:14:51 -0800 (Sat, 07 Mar 2009) $
# $Author: clonezone $
# $Revision: 3231 $
##############################################################################
# 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 :