sub get_token {
    my $self = shift;
    my $class = ref $self;
    my $token = $self->SUPER::get_token;
    return undef if ! defined $token;
    bless $token, $class;
}
# create appropriate methods...