Help for this page

Select Code to Download

Select or download this

    while(defined(my $t = $p->get_token())){
        print(TEMPO $t->as_is), next
            unless $t->is_tag('a');
...
           "\n\n"
        ) if exists $attr->{href};
    }

Select or download this

    my @stack;
    while(defined(my $t = $p->get_token())){
        if($t->is_start_tag('a')) {
...

        print TEMPO $t->as_is;
    }