perl inline

hoge.pl

perl -MO=Deparse hoge.pl


# インライン展開される組
sub inline_q() {
    q{myline}
}
sub inline_qq() {
    qq{myline}
}
sub inline_hearquote() {
<<'EOF';
myline
EOF
}

# インラインされない組
sub inline_hear() {
<<EOF;
myline
EOF
}
sub inline_hearwquote() {
<<"EOF";
myline
EOF
}


print inline_q();
print inline_qq();
print inline_hearquote();
print inline_hear();
print inline_hearwquote();

s/hear/here/