1package Fascisto;
2
3sub new
4{
5   my $pkg = shift;
6   my $foo = bless { $pkg->defaults, @_ }, $pkg;
7   return $foo;
8}
9
10sub defaults
11{
12   return ();
13}
14
151;
16__END__;
17