sub new
{
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self = { };
    $self->{token} = { a => 5 };
    # equivalent to $self->{token} = \%( a => 5 );
    return bless($self, $class);
}

##</code><code>##

sub set_token
{
       my $self = shift;
       $self->{token}{$_[0]} = $_[1];
}

sub get_token
{
       my $self = shift;
       return $self->{token}{$_[0]};
}

sub get_token_keys
{
       my $self = shift;
       return keys %{$self->{token}};
}