#

# '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 = <

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, <

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 => <

Test::Unit Version $Test::Unit::VERSION

(c) 2000-2002, 2005 Christian Lemburg, Brian Ewins, et. al.

use Heredoc::in::Use;

EOF

  print <

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!<

   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/<

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 "<

push @OUT, "return <<'END';\n";

package Not::In::Heredoc;

use Not::In::Heredoc;