|
Last change
on this file since 24626 was 24626, checked in by jmt12, 13 years ago |
|
An (almost) complete copy of the perllib directory from a (circa SEP2011) head checkout from Greenstone 2 trunk - in order to try and make merging in this extension a little easier later on (as there have been some major changes to buildcol.pl commited in the main trunk but not in the x64 branch)
|
|
File size:
873 bytes
|
| Line | |
|---|
| 1 | package HTML::TokeParser::Simple::Token::Comment;
|
|---|
| 2 |
|
|---|
| 3 | use strict;
|
|---|
| 4 |
|
|---|
| 5 | use vars qw/ $VERSION $REVISION /;
|
|---|
| 6 | $REVISION = '$Id: Comment.pm 13983 2007-03-15 01:32:44Z lh92 $';
|
|---|
| 7 | $VERSION = '1.0';
|
|---|
| 8 | use base 'HTML::TokeParser::Simple::Token';
|
|---|
| 9 |
|
|---|
| 10 | sub is_comment { 1 }
|
|---|
| 11 |
|
|---|
| 12 | 1;
|
|---|
| 13 |
|
|---|
| 14 | __END__
|
|---|
| 15 |
|
|---|
| 16 | =head1 NAME
|
|---|
| 17 |
|
|---|
| 18 | HTML::TokeParser::Simple::Token::Comment - Token.pm comment class.
|
|---|
| 19 |
|
|---|
| 20 | =head1 SYNOPSIS
|
|---|
| 21 |
|
|---|
| 22 | use HTML::TokeParser::Simple;
|
|---|
| 23 | my $p = HTML::TokeParser::Simple->new( $somefile );
|
|---|
| 24 |
|
|---|
| 25 | while ( my $token = $p->get_token ) {
|
|---|
| 26 | # This prints all text in an HTML doc (i.e., it strips the HTML)
|
|---|
| 27 | next unless $token->is_text;
|
|---|
| 28 | print $token->as_is;
|
|---|
| 29 | }
|
|---|
| 30 |
|
|---|
| 31 | =head1 DESCRIPTION
|
|---|
| 32 |
|
|---|
| 33 | This is the class for comment tokens.
|
|---|
| 34 |
|
|---|
| 35 | See L<HTML::Parser> for detailed information about comments.
|
|---|
| 36 |
|
|---|
| 37 | =head1 OVERRIDDEN METHODS
|
|---|
| 38 |
|
|---|
| 39 | =head2 is_comment
|
|---|
| 40 |
|
|---|
| 41 | C<is_comment()> will return true if the token is the DTD at the top of the
|
|---|
| 42 | HTML.
|
|---|
| 43 |
|
|---|
| 44 | =cut
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
