WWW::Mechanize::Plugin::HelloWorld - a sample WWW::Mechanize::Pluggable plugin
use WWW::Mechanize::Pluggable; # This module is automatically loaded into WWW::Mechanize::Pluggable
This module shows how to mess with the
WWW::Mechanize object contained within the
Further refinements are left to the reader. Note that the fields in the
WWW::Mechanize::Pluggable object are also available to the plugins.
my $mech = new WWW::Mechanize::Pluggable; $mech->hello_world; # $mech->content now eq 'hello world'
Contact the author at
Joe McMahon email@example.com
Copyright 2005 by Joe McMahon and Yahoo!
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.
This function snags any 'helloworld' key-value pair off the
use WWW::Mechanize line and sets the
HELLO key to it.
Currently this uses a global variable in the
WW::Mechanize::Pluggable namespace to capture the value. This is icky and should be replaced with something more elegant.
init() function exports
hello_world into the caller's namespace.
Just a demonstration function; replaces the current content with 'hello world'. It should be noted that this is not going to pass most tests for "successfully fetched page" because
WWW::Mechanize hasn't processed a valid request-response pair.