Help for this page

Select Code to Download


  1. or download this
    package HTML::pageParser;

...
use strict;
use Carp;
use vars qw($VERSION);
  2. or download this
        my $proto = shift;
    my $class = $proto;
...
    bless ($self, $class);
    $debug .= "new class has been run<br>";
    return $self;
  3. or download this
    $self->{tokens} = {};  # in new()
my %tokens = %{ $self->{tokens} };  # in ParseData()