#
# 'authentication' should not be found, because it is part of "= <<" block
twitter_api_method suggestion_categories => (
path => 'users/suggestions',
method => 'GET',
params => [],
required => [],
returns => 'ArrayRef',
description => <<''
Returns the list of suggested user categories. The category slug can be used in
the C<user_suggestions> API method get the users in that category . Does not
require authentication
package authentication;
);
%hash = (
"text" => << 'EOT'
use and require is a horrible stuff
package EOT
EOT
);
$template = <<EXIT;
package To::Test;
use to test
require should be tested too;
EXIT
$test = <<''
package in::test;
require test should not be found in a text;
my $test = <<'@'
package temp;
require temp also should not be found in a text
@
;
#
# Dist-Zilla-5.027/lib/Dist/Zilla/Plugin/MakeMaker.pm
# None of requirement before last '!' should not be reported
my $template = q!
package Template;
use strict;
use warnings;
use ExtUtils::MakeMaker{{ defined $eumm_version && 0+$eumm_version ? ' ' . $eumm_version : '' }};
!;
sub note_template {
my ($self, $log, $text) = @_;
my $diff = _prepend_comment( $self->get_diff($log) );
return << "HERE";
package Use::Template;
use Template;
HERE
}
$pod .= << 'HERE';
package Simply::Pod;
use Simply::Pod;
HERE
push @LIB, <<EOF;
use push
EOF
#--------------------------------------------------------------------------
$ComTab{'c'}=[ 2, 'txt', \&Change, <<'-X-' ]; #ok
package Comments;
use Comments;
{ print <<'TheEnd'; } $doPrint = 0; goto EOS;
-X-
ok(153, docat_del($file) eq <<'EOM') ;
use In::Function;
EOM
my $template = $self->note_template( $log, << "HERE" );
perldelta: $section [pending]
use
HERE
write_file( File::Spec->catfile( $fulldir, 'bazmarkhian.al' ), <<'EOT' );
package Foo;
use Foo;
1;
EOT
is (eval <<'END', 1, 'lexical topic compiles') or diag $@;
package Experimental
;
use experimental 'lexical_topic';
my $_ = 1;
is($_, 1, '$_ is 1');
END
# Multiple here-docs does not properly. The skipping finish on the first tag
myfunc(<< "THIS", 23, <<'THAT');
package THIS;
use THIS;
THIS
package THAT;
use THAT;
THAT
print <<< 'test';
package More::Then::Two::Mark;
use More::Then::Two::Mark;
print 20 << 20;
print 20<<20;
use Bitwise::Operator;
use constant COPYRIGHT_SHORT => <<EOF;
Test::Unit Version $Test::Unit::VERSION
(c) 2000-2002, 2005 Christian Lemburg, Brian Ewins, et. al.
use Heredoc::in::Use;
EOF
print <<EOF1;
Usage: $0 [OPTIONS]
--defaults-file=name Only read default options from the given file name.
--force Causes mysql_install_db to run even if DNS does not
work. In that case, grant table entries that normally
use hostnames will use IP addresses.
--help Display this help and exit.
EOF1
# Should not break test
if (defined $::RD_TRACE) {
Parse::RecDescent::_trace(q{<<'.Parse::RecDescent::_matchtracemessage($self,1).' rule>>},
Parse::RecDescent::_tracefirst($_[1]),
q{' . $self->{"name"} .'},
$tracelevel)
}
$trase = q!<<TEST help
package In::Quoted::Section;
use In::Quoted::Section;
!;
print <<'1234';
package Number::As::Tag;
use Number::As::Tag;
1234
$cost = <<\VISTA; # Same thing!
That'll be $10 please, ma'am.
package Vista
use Vista
VISTA
s/this/<<E . 'that'
the other
package Regex
use Regex
E
. 'more '/eg;
# Should not hang the test
sub demo {
$foobarbaztest++ if /\s*= <<'/x;
use Not::Hang
}
# This case should be the last and should be found each time.
print "<<TEST";
push @OUT, "return <<'END';\n";
package Not::In::Heredoc;
use Not::In::Heredoc;