Select Code to Download

Select or download this

sub test_wantarray{
   wantarray ? Y : N;
}
...

HelloNWorld
HelloYWorld

Select or download this

  sub print_context {
    if (not defined wantarray) {
...
  join print_context,                              # scalar context
    print_context, print_context;                  # both list context
  print "\n";

Select or download this

  print_context() ? print_context() : print_context();
  print "\n";

Select or download this

sub test_wantarray{
wantarray ? @array: \@array;
}

Select or download this

  print_context() ? print_context() : print_context();
print "\n";
print print_context() ? print_context() : print_context();
print "\n";
print join(print_context() ? print_context() : print_context()), print
+_context(), "\n";

Select or download this

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/