重寫範例 3
Old
use LWP::Simple;
use Template::Extract;
use Data::Dumper;
my $obj = Template::Extract->new;
print Dumper $obj->extract('[% FOREACH rec %]<a href="[% ... %]">[% link %]</a>[% END %]',
get("http://google.com"));
New
use FEAR::API -base;
url("google.com")->();
extract('[% FOREACH rec %]<a href="[% ... %]">[% link %]</a>[% END %]');
print Dumper extresult;