sub bar {
    my ($self, $bar) = @_;
    croak "bar() requires a hashref" unless 'HASH' eq ref $bar;
    $self->{bar} = $bar;
    return $self;
}