<OPTIMISM>
This is the sort of thing Perl 6 will have properties for. In HTML::TokeParser::Easy's get_token method, you would just mark the return value with 'is tag'. Then, your loop would just be:

while($toke=$parser.get_token) {
    next if $toke.tag;
    print $toke
}
[download]

Token objects need not apply. Much cleaner, don't you think?
</OPTIMISM>

=cut
--Brent Dax
There is no sig.