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}};
}