5 print "this is literal";
6 print qq{this is literal};
8 #-----------------------------------------------------------------------------
14 print 'this is literal';
15 print q{this is literal};
17 #-----------------------------------------------------------------------------
19 ## name Code with all delimiters in configuration
21 ## parms {allow => 'qq( qq{ qq[ qq/'}
24 $sql = qq(select foo from bar);
25 $sql = qq{select foo from bar};
26 $sql = qq[select foo from bar];
27 $sql = qq/select foo from bar/;
29 is( pcritique($policy, \$code, \%config), 0, $policy);
31 #-----------------------------------------------------------------------------
33 ## name Code with not all delimiters in configuration
35 ## parms {allow => 'qq( qq{'}
38 $sql = qq(select foo from bar);
39 $sql = qq{select foo from bar};
40 $sql = qq[select foo from bar];
41 $sql = qq/select foo from bar/;
43 #-----------------------------------------------------------------------------
45 ## name Configuration with only delimiters, no operators
47 ## parms {allow => '() {}'}
50 $sql = qq(select foo from bar);
51 $sql = qq{select foo from bar};
52 $sql = qq[select foo from bar];
53 $sql = qq/select foo from bar/;
55 #-----------------------------------------------------------------------------
57 ## name Configuration with matching closing delimiters
59 ## parms {allow => 'qq() qq{}'}
62 $sql = qq(select foo from bar);
63 $sql = qq{select foo from bar};
64 $sql = qq[select foo from bar];
65 $sql = qq/select foo from bar/;
67 #-----------------------------------------------------------------------------
69 ##############################################################################
70 # $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/ValuesAndExpressions/ProhibitInterpolationOfLiterals.run $
71 # $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
72 # $Author: clonezone $
74 ##############################################################################
78 # cperl-indent-level: 4
80 # indent-tabs-mode: nil
81 # c-indentation-style: bsd
83 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :