Select Code to Download

perl -w -MData::Dumper -d \
-e '$Data::Dumper::Purity=1;' \
...
      -> 'int'
   1  HASH(0x8306af8)
      'type' => 'int'

#!perl -w
use Data::Dumper;
...
        ];
$VAR1->[1] = \$VAR1->[0]{'type'};
equal