Help for this page

Select Code to Download


  1. or download this
    main @> $Test::x = 1; @Test::y = qw(2 3); %Test::z = (a => 'b');
    main @> keys %Test::
    ...
    'HASHES: z'
    main @> join ' ', "SCALARS:", grep defined(${"Test::$_"}), keys %Test:
    +:
    'SCALARS: x'