Help for this page

Select Code to Download


  1. or download this
    my $op = @_ ? ($seen{lc($field)}++ ? 'PUSH' : 'SET') : 'GET';
  2. or download this
    $ perl -Mstrict -Mwarnings -le '
    my $x = 1;
...
1
2
3
  3. or download this
    my @return_values = function(@args); # wantarray TRUE
my $return_value  = function(@args); # wantarray FALSE