My plan is for tests of features to be put into multiple languages to make sure that reasonable things happen for each language (to test for bleeding between cross reference behavior). git-svn-id: svn://10.0.0.236/trunk@209631 18797224-902f-48f8-a5cc-f745e15eee43
34 lines
370 B
Perl
34 lines
370 B
Perl
#!/bin/perl
|
|
|
|
print "this is not a comment";
|
|
|
|
# this is a comment
|
|
|
|
print "this is not a comment";
|
|
|
|
=pod
|
|
print "this block is a compiler error";
|
|
=cut
|
|
=pod
|
|
This is POD
|
|
=cut
|
|
|
|
print "this is not a comment";
|
|
|
|
# this is a comment
|
|
|
|
print "this is not a comment";
|
|
|
|
=pod
|
|
This is POD
|
|
#comment
|
|
=cut
|
|
|
|
print "this is not a comment";
|
|
|
|
=pod
|
|
This is silly
|
|
^=cut
|
|
|
|
print "this is pod!";
|