my ($mdd, %style);
BEGIN { %style = (indent=>1, autoprint=>1) };

# 1st 2 work, last doesnt !
use Data::Dumper::EasyOO ( %style, init => \$mdd);
use Data::Dumper::EasyOO ( %style, init => \our $odd);	
use Data::Dumper::EasyOO ( %style, init => \my $ndd);	

$mdd->(mdd => \%INC);
$odd->(odd => \%INC);
$ndd->(ndd => \%INC);

##</code><code>##

 perl -e 'sub f{my$p=shift;$$p++;} f(\(my ($g)="val")); print "g:$g\n"'