use strict; package WWW::Scraper::Opcode::DISCOVERNEXT; use base qw(WWW::Scraper::Opcode); use vars qw($VERSION); # new() Scraper::Opcode # $cls - Op class # $scaffold - current scaffold # $params - ref to array of parames in the 'OP()' portion of the scaffold. sub new { my ($cls, $scaffold, $params) = @_; my $self = bless {}; $self->{'fieldsDiscovered'} = ['name','action','method']; return $self; } sub scrape { my ($self, $scraper, $scaffold, $TidyXML, $hit) = @_; return (undef, undef); } 1;