> tperl  # an alias
{ package foo;
  use Data::Vars [qw(a b c) ], {c=>sub{ {} }};  #c gets a default
1}
package main;
my $p = foo->new({a=>1});        # a passed as arg
$p->b = [qw(one two three)];     # b assigned to at runtime
P "p=%s", $p;                    # and result
'
p=foo{a=>1, b=>["one", "two", "three"], c=>{}}