Select Code to Download

#!perl -l

...

print wrapper;         # 1
print scalar wrapper;  # 0

#!perl -l

...

print wrapper;         # 1
print scalar wrapper;  # 0

@r = &{ sub { return (4, 5, 6);                     } };  # 4, 5, 6
@r = &{ sub { my @r = (4, 5, 6); return @r;         } };  # 4, 5, 6
...
$r = &{ sub { return (4, 5, 6);                     } };  # 6
$r = &{ sub { my @r = (4, 5, 6); return @r;         } };  # 3
$r = &{ sub { my @r = (4, 5, 6); return @r[0..$#r]; } };  # 6

#!perl -l

...

print wrapper;         # 1
print scalar wrapper;  # 0