Web::ScraperでFurlを使う

perl 
#!perl
use strict;
use warnings;
use URI;
use Web::Scraper;
use Furl;

{
    no warnings 'redefine';
    *Furl::get = sub {
        my ($self, $uri) = @_;
        my $res = $self->request( method  => 'GET', url => "$uri" );
        return $res->as_http_response;
    };
}

$Web::Scraper::UserAgent = Furl->new();

my $res = scraper {
    process '//div[@id="sectionMain"]/ul/li/dl/dd/h3/a', 'member[]' => 'TEXT';
}->scrape( URI->new('http://www.ske48.co.jp/profile/list.php') );

for my $name (@{ $res->{member} }) {
    warn $name;
}


ブログの更新がすごい久しぶりになってしまった。。