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

       Toby Inkster <tobyink@cpan.org>.

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

       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.

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

       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.

perl v5.32.1                                       2021-09-12             HTML::Microform...:Format::figure(3pm)

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

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

       Data is returned using Dublin Core and FOAF.

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

        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);
            }
          }
        }