package HTML::TokeParser::Simple;

sub get_start_token {
    my $self  = shift;
    my $token;
    
    do {
        $token = $self->get_token;
    } until ( ! $token || $token->is_start_tag );
	
    return $token;
}