First page Back Continue Last page Overview Graphics
Implementation of Step 2
package My::LinkParser; # Parser class
use base qw(HTML::Parser);
-
use constant START=>0; # Define simple constants
use constant GOT_NAME=>1;
-
sub state { # Simple access methods
return $_[0]->{STATE};
}
sub author {
return $_[0]->{AUTHOR};
}
-