- or download this
ok True, 'True is, well, True';
if True {
...
} else {
flunk('if True works');
}
- or download this
sub s {
my $str = shift;
return split /:/, $str;
}
- or download this
is_deeply [s("a:b")], [split /:/, 'a:b'], $msg;
- or download this
is_deeply [s("a:b")], [qw(a, b)], $msg;