$c = 0;
$n = 1 + int rand 1000;
# length magic on scalars needs also get magic to be triggered.
- $wiz = wizard get => sub { return 'anything' },
- len => sub { $d = $_[2]; ++$c; return $n };
+ my $wiz = wizard get => sub { return 'anything' },
+ len => sub { $d = $_[2]; ++$c; return $n };
my $x = 6789;