HTML::TokeParser::Simple::Token::Tag - Token.pm tag class.

HTML-TokeParser-Simple documentation Contained in the HTML-TokeParser-Simple distribution.

Index

Code Index:

NAME

Top

HTML::TokeParser::Simple::Token::Tag - Token.pm tag class.

SYNOPSIS

Top

 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;
 }

DESCRIPTION

Top

This is the base class for start and end tokens. It should not be instantiated. See HTML::TokeParser::Simple::Token::Tag::Start and HTML::TokeParser::Simple::Token::Tag::End for details.

OVERRIDDEN METHODS

Top

The following list of methods are provided by this class. See HTML::TokeParser::Simple for descriptions of these methods.

* as_is
* get_tag
* return_text
HTML-TokeParser-Simple documentation Contained in the HTML-TokeParser-Simple distribution. 
package HTML::TokeParser::Simple::Token::Tag;

use strict;

use vars qw/ $VERSION $REVISION /;
$REVISION = '$Id: Tag.pm,v 1.5 2005/10/08 19:45:55 ovid Exp $';
$VERSION  = '1.2';
use base 'HTML::TokeParser::Simple::Token';

my %INSTANCE;

sub new {
    my ($class, $object) = @_;
    $class->_croak("This is a base class that should not be instantiated") 
        if __PACKAGE__ eq $class;
    my $self = bless $object, $class;
    $self->_init;
}

sub _get_attrseq { return [] }

sub _get_attr { return {} }

sub _set_text   { 
    my $self = shift; 
    $self->[-1] = shift;
    return $self;
}

# attribute munging methods
# get_foo methods

sub return_text {
    carp('return_text() is deprecated.  Use as_is() instead');
    goto &as_is;
}

sub as_is {
    return shift->_get_text;
}

sub get_tag {
    return shift->_get_tag;
}

1;

__END__