sub new {
    my ($class, $foo) = @_;
    bless { foo => $foo } , $class;
}