Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (17 sloc) 227 Bytes
# Conditionals
if(true) {
# true
}
use feature qw( switch );
$x = 'tacos';
given ($x) {
when('tacos') {
print "i love tacos.\n";
}
when('milk') {
# it's too hot for milk
}
default {
# fallthrough
}
}
Something went wrong with that request. Please try again.