17 lines
262 B
Perl
Executable File
17 lines
262 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# $Id: perlcritic_ProhibitInterpolationOfLiterals,v 1.3 2016/06/15 22:18:23 gilles Exp gilles $
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our $VERSION = q$Revision: 1.3 $;
|
|
|
|
if ( "\afoo" eq '\afoo' ) {
|
|
print "equal\n";
|
|
}
|
|
else {
|
|
print "not equal\n";
|
|
}
|
|
|