Example 1 rewrite
Old
use WWW::Mechanize; use Data::Dumper; my $mech = WWW::Mechanize->new(); $mech->get( "http://google.com" ); print Dumper $mech->links;
New
use FEAR::API -base; print Dumper fetch("google.com")->links;
use WWW::Mechanize; use Data::Dumper; my $mech = WWW::Mechanize->new(); $mech->get( "http://google.com" ); print Dumper $mech->links;
use FEAR::API -base; print Dumper fetch("google.com")->links;
Copyright © 2006 Yung-chung Lin |