Help for this page

Select Code to Download


  1. or download this
    use B qw(class svref_2object);
$\ = "\n";
my $rand = rand;
...
sub mutate {
    (svref_2object($_[0])->PADLIST->ARRAY)[1]->object_2svref->[1] = ra
+nd
}
  2. or download this
    use B qw(class svref_2object);
use Data::Dumper;

...
    @a;

print Dumper( @a );
  3. or download this
    $VAR1 = [
          bless( do{\(my $o = 1)}, 'B::SPECIAL' ),
          \'$k'
...
          [],
          \'0.716383141555951'
        ];