Help for this page

Select Code to Download


  1. or download this
        sub context {wantarray ? "LIST" : "SCALAR"}
    my $context = (context);
    print $context, "\n";
    __END__
    SCALAR
  2. or download this
        sub context {wantarray ? "LIST" : "SCALAR"}
    my($context) = context;
    print $context, "\n";
    __END__
    LIST