sub getbar {
    my $self = shift;
    return ${$self};
}