
HTML::Microformats::Format::figure - the figure microformat

use HTML::Microformats::DocumentContext;
use HTML::Microformats::Format::figure;
use Scalar::Util qw(blessed);
my $context = HTML::Microformats::DocumentContext->new($dom, $uri);
my @objects = HTML::Microformats::Format::figure->extract_all(
$dom->documentElement, $context);
foreach my $fig (@objects)
{
printf("<%s> %s\n", $fig->get_image, $fig->get_legend->[0]);
foreach my $maker ($p->get_credit)
{
if (blessed($maker))
{
printf(" - by %s\n", $maker->get_fn);
}
else
{
printf(" - by %s\n", $maker);
}
}
}

HTML::Microformats::Format::figure inherits from HTML::Microformats::Format. See the base class definition for a description of property getter/setter methods, constructors, etc.

HTML::Microformats::Format::figure supports figure as described at http://microformats.org/wiki/figure.

Data is returned using Dublin Core and FOAF.

Please report any bugs to http://rt.cpan.org/.

HTML::Microformats::Format, HTML::Microformats.

Toby Inkster <tobyink@cpan.org>.

Copyright 2008-2011 Toby Inkster
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.