warnings;
use lib lib => glob 'modules/*/lib';
use LWP::Simple qw($ua);
use HTML::Microdata;
use JSON;
my $uri = shift;
my $res = $ua->get($uri);
unless ($res->is_success) {
warn $res->status_line;
exit 1;
}
my $microdata = HTML::Microdata->extract($res->decoded_content, base => $uri);
print JSON->new->pretty->encode($microdata->items);
warnings;
use HTML::TreeBuilder::LibXML;
use Hash::MultiValue;
use Scalar::Util qw(refaddr);
use JSON;
use URI;
our $VERSION = '0.05';
sub new {
my ($class, %args) = @_;
bless {
items => [],
= @_;
my $self = $class->new(%opts);
$self->_parse($content);
$self
}
sub as_json {
my ($self) = @_;
encode_json +{
items => $self->{items},
};
}
sub items {
my ($self) = @_;
$self->{item my $json = $microdata->as_json;
use Data::Dumper;
warn Dumper $microdata->items; # returns top level items
=head1 DESCRIPTION
HTML::Microdata is extractor of microdata from HTML to JSON etc.dd to Calendar"
onclick="location = getCalendar(this)"></p>
...
<meta itemprop="description" content="via livebrum.co.uk">
</body>
EOF
use Data::Dumper;
warn Dumper $microdata->as_json;