/usr/share/perl5/HTML/TokeParser/Simple/Token.pm is in libhtml-tokeparser-simple-perl 3.16-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 | package HTML::TokeParser::Simple::Token;
use strict;
our $VERSION = '3.16';
sub new {
my ($class, $token) = @_;
$class->_croak("This class should not be instantiated") if __PACKAGE__ eq $class;
return bless $token, $class;
}
sub _croak {
my ($proto, $message) = @_;
require Carp;
Carp::croak($message);
}
sub _carp {
my ($proto, $message) = @_;
require Carp;
Carp::carp($message);
}
sub is_tag {}
sub is_start_tag {}
sub is_end_tag {}
sub is_text {}
sub is_comment {}
sub is_declaration {}
sub is_pi {}
sub is_process_instruction {}
sub rewrite_tag { shift }
sub delete_attr {}
sub set_attr {}
sub get_tag {}
sub return_tag {} # deprecated
sub get_attr {}
sub return_attr {} # deprecated
sub get_attrseq {}
sub return_attrseq {} # deprecated
sub get_token0 {}
sub return_token0 {} # deprecated
# get_foo methods
sub return_text {
my ($self) = @_;
$self->_carp('return_text() is deprecated. Use as_is() instead');
goto &as_is;
}
sub as_is { return shift->[-1] }
1;
__END__
=head1 NAME
HTML::TokeParser::Simple::Token - Base class for C<HTML::TokeParser::Simple>
tokens.
=head1 SYNOPSIS
use HTML::TokeParser::Simple;
my $p = HTML::TokeParser::Simple->new( $somefile );
while ( my $token = $p->get_token ) {
# This prints all text in an HTML doc (i.e., it strips the HTML)
next unless $token->is_text;
print $token->as_is;
}
=head1 DESCRIPTION
This is the base class for all returned tokens. It should never be
instantiated directly. In fact, it will C<croak()> if it is.
=head1 METHODS
The following list of methods are provided by this class. Most of these are
stub methods which must be overridden in a subclass. See
L<HTML::TokeParser::Simple> for descriptions of these methods.
=over 4
=item * as_is
=item * delete_attr
=item * get_attr
=item * get_attrseq
=item * get_tag
=item * get_token0
=item * is_comment
=item * is_declaration
=item * is_end_tag
=item * is_pi
=item * is_process_instruction
=item * is_start_tag
=item * is_tag
=item * is_text
=item * return_attr
=item * return_attrseq
=item * return_tag
=item * return_text
=item * return_token0
=item * rewrite_tag
=item * set_attr
=back
|