ername and password.
#
# $Id$
BEGIN { $| = 1 }
use strict;
use warnings;
use Getopt::Long;
use JSON::XS;
use WWW::Scraper::Yahoo360;
our $verbose;
our $debug;
sub debug {
if ($verbose) {
s;
debug("Reading all blog comments...");
my $comments = $y360->get_blog_comments($posts);
$blog_info->{comments} = $comments;
my $json = JSON::XS->new()->pretty;
print $json->encode($blog_info);
use Carp ();
use Date::Parse ();
use File::Slurp ();
use HTTP::Date ();
use JSON::XS ();
use WWW::Mechanize ();
use constant BLOG_URL => q{http://blog.360.yahoo.com/blog