Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Branch: master
Fetching contributors…

Cannot retrieve contributors at this time

50 lines (41 sloc) 0.696 kB
print 1;
print 2, "\n";
print 34, "\n";
print 5.6, "\n";
print 'ok 7\n', "\n"; # show '\n' is literal
print "ok 8\n";
print "ok 9\n","ok 10\n","ok 11\n","ok 12\n";
label1: print "ok 13\n";
label2: print "ok 14\n";
print 1 - 2 - 3;
print "\n";
print 1 + 2, "\n", 2 + 3, "\n";
do {
print "ok 15\n";
print "ok 16\n";
print "ok 17\n";
};
if (1) {
print "ok 18\n";
}
if (0) {
print "should never be printed\n";
}
unless (1 - 1) {
print "ok 19\n";
}
unless (1) {
print "should never be printed\n";
}
# comment
$x = 4;
if ($x >= 4) {
print "ok 20\n";
}
if ($x <= 5) {
print "ok 21\n";
}
$y = 1 + 1 && 11 + 11;
print "ok ", $y, "\n";
$z = 0 || 23;
print "ok ", $z, "\n";
Jump to Line
Something went wrong with that request. Please try again.