The xmdp microformat
use HTML::Microformats;
use LWP::Simple qw[get];
use RDF::TrineShortcuts;
my $uri = 'http://microformats.org/profile/hcard';
my $html = get($uri);
my $doc = HTML::Microformats->new_document($html, $uri);
$doc->assume_all_profiles;
my @xmdp_objects = $doc->objects('XMDP');
foreach my $xo (@xmdp_objects)
{
print $xo->serialise_model(
as => 'Turtle',
namespaces => {
rdfs => 'http://www.w3.org/2000/01/rdf-schema#',
hcard => 'http://microformats.org/profile/hcard#',
},
);
print "########\n\n";
}
HTML::Microformats::Format::XMDP inherits from HTML::Microformats::Format. See the base class definition for a description of property getter/setter methods, constructors, etc.
HTML::Microformats::Format::XMDP also inherits from HTML::Microformats::Format::XOXO, and the \*(C`data\*(C' method returns the same structure.
HTML::Microformats::Format::XMDP supports \s-1XMDP\s0 as described at <http://gmpg.org/xmdp/>.
Data is returned using \s-1RDFS\s0.
A limitation is that for any <dd> element with <dl> children, only the first such <dl> is looked at. This means that the \s-1XFN\s0 1.1 profile document is only partially parsable; most other microformat profile document can be properly parsed though.
Please report any bugs to <http://rt.cpan.org/>.
HTML::Microformats::Format, HTML::Microformats.
Toby Inkster <[email protected]>.
Copyright 2008-2012 Toby Inkster
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
\s-1THIS\s0 \s-1PACKAGE\s0 \s-1IS\s0 \s-1PROVIDED\s0 \*(L"\s-1AS\s0 \s-1IS\s0\*(R" \s-1AND\s0 \s-1WITHOUT\s0 \s-1ANY\s0 \s-1EXPRESS\s0 \s-1OR\s0 \s-1IMPLIED\s0 \s-1WARRANTIES\s0, \s-1INCLUDING\s0, \s-1WITHOUT\s0 \s-1LIMITATION\s0, \s-1THE\s0 \s-1IMPLIED\s0 \s-1WARRANTIES\s0 \s-1OF\s0 \s-1MERCHANTIBILITY\s0 \s-1AND\s0 \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0.