sub compare 
{
    my $self    = shift;
    my $string  = shift;
    foreach my $key (keys %{ $self }) {
        return 0 if $string ne $key;
    }
    return 1;
}