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