Select Code to Download

package private;
our $my_scalar = 'my scalar';
our @my_array  = qw(my array);
...

print "\nDumpvalue:\n";
Dumpvalue->new->dumpvars('private');

ARRAYS => private::my_array
SCALARS => private::my_scalar, private::my_array, private::my_hash
HASHES => private::my_hash
...
%my_hash = (
   'my' => 'hash'
)