The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl
use utf8;
use lib 'lib';
use Novel::Robot::Browser;
use Test::More ;
use Data::Dump qw/dump/;

my $browser = Novel::Robot::Browser->new();

my $url = 'http://www.jjwxc.net/onebook.php?novelid=2456';
#my $content_get_ref = $browser->request_url_simple($url);
#print $$content_get_ref;
use Novel::Robot;
my $xs = Novel::Robot->new(site => 'Jjwxc', type => 'html');
my $r = $xs->get_book($url);
exit;

my $form_url = 'http://www.jjwxc.net/search.php';
my $post_data = {
    'key1' => 'value1', 
    'key2' => 'value2', 
};
my $content_post_ref = $browser->request_url($form_url, $post_data);
dump($content_post_ref);

done_testing;