Select Code to Download

Select or download this

> perl -MO=Terse -e 'use strict;my @a;for my $f (@a){no strict "refs";
+print $$f}'
LISTOP (0x8225988) leave [1] 
...
                        UNOP (0x8225880) rv2sv 
                            OP (0x82c1c20) padsv [2] 
                    OP (0x82dc9c8) unstack

Select or download this

perl -MO=Debug -e 'use strict;my @a;for my $f (@a){no strict "refs";pr
+int $$f}'

Select or download this

perl -MO=Debug -e 'use strict;my @a;for my $f (@a){print $$f}'

Select or download this

UNOP (0x83085c8)
        op_next         0x830b190
...
        op_flags        6
        op_private      1
        op_first        0x8309088

Select or download this

UNOP (0x982ca28)
        op_next         0x981f960
...
        op_flags        6
        op_private      3
        op_first        0x9835dd8

Select or download this

#define HINT_STRICT_REFS 0x00000002 /* strict pragma */