Select Code to Download

package Foo;

...
}

1;

use Data::Dumper ();

my $foo = Foo->new(a => 1, b => 2, c => [qw/apple banana grape/]);

print Data::Dumper::Dumper(\$foo)

$VAR1 = \bless( {
                   'b' => 2,
...
                   'a' => 1
                 }, 'Foo' );

package Foo;

...
}

1;

$VAR1 = \bless( [
                   'a',
...
                     'grape'
                   ]
                 ], 'Foo' );