<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">NAME
    Data::Image - Data object for image.

SYNOPSIS
     use Data::Image;

     my $obj = Data::Image-&gt;new(%params);
     my $author = $obj-&gt;author;
     my $comment = $obj-&gt;comment;
     my $height = $obj-&gt;height;
     my $id = $obj-&gt;id;
     my $size = $obj-&gt;size;
     my $url = $obj-&gt;url;
     my $url_cb = $obj-&gt;url_cb;
     my $width = $obj-&gt;width;

METHODS
  "new"
     my $obj = Data::Image-&gt;new(%params);

    Constructor.

    Returns instance of object.

    *       "author"

            Image author. It's optional. Default value is undef.

    *       "comment"

            Image comment. It's optional. Default value is undef.

    *       "height"

            Image height. It's optional. Default value is undef.

    *       "id"

            Image id. It's optional. Default value is undef.

    *       "size"

            Image size. It's optional. Default value is undef.

    *       "url"

            URL of image. It's optional. Default value is undef.

    *       "url_cb"

            URL callback. To get URL from code. It's optional. Default value
            is undef.

    *       "width"

            Image width. It's optional. Default value is undef.

  "author"
     my $author = $obj-&gt;author;

    Get image author.

    Returns string.

  "comment"
     my $comment = $obj-&gt;comment;

    Get image comment.

    Returns string.

  "height"
     my $height = $obj-&gt;height;

    Get image height.

    Returns number.

  "id"
     my $id = $obj-&gt;id;

    Get image id.

    Returns number.

  "size"
     my $size = $obj-&gt;size;

    Get image size.

    Returns number.

  "url"
     my $url = $obj-&gt;url;

    Get URL of image.

    Returns string.

  "url_cb"
     my $url_cb = $obj-&gt;url_cb;

    Get URL callback.

    Returns code.

  "width"
     my $width = $obj-&gt;width;

    Get image width.

    Returns number.

EXAMPLE
     use strict;
     use warnings;

     use Data::Image;

     my $obj = Data::Image-&gt;new(
             'author' =&gt; 'Zuzana Zonova',
             'comment' =&gt; 'Michal from Czechia',
             'height' =&gt; 2730,
             'size' =&gt; 1040304,
             'url' =&gt; 'https://upload.wikimedia.org/wikipedia/commons/a/a4/Michal_from_Czechia.jpg',
             'width' =&gt; 4096,
     );

     # Print out.
     print 'Author: '.$obj-&gt;author."\n";
     print 'Comment: '.$obj-&gt;comment."\n";
     print 'Height: '.$obj-&gt;height."\n";
     print 'Size: '.$obj-&gt;size."\n";
     print 'URL: '.$obj-&gt;url."\n";
     print 'Width: '.$obj-&gt;width."\n";

     # Output:
     # Author: Zuzana Zonova
     # Comment: Michal from Czechia
     # Height: 2730
     # Size: 1040304
     # URL: https://upload.wikimedia.org/wikipedia/commons/a/a4/Michal_from_Czechia.jpg
     # Width: 4096

DEPENDENCIES
    Mo, Mo::utils.

SEE ALSO
    Data::Commons::Image
        Data object for Wikimedia Commons image.

REPOSITORY
    &lt;https://github.com/michal-josef-spacek/Data-Image&gt;

AUTHOR
    Michal Josef Ĺ&nbsp;paÄek &lt;mailto:skim@cpan.org&gt;

    &lt;http://skim.cz&gt;

LICENSE AND COPYRIGHT
    ÂŠ 2022 Michal Josef Ĺ&nbsp;paÄek

    BSD 2-Clause License

VERSION
    0.02

</pre></body></html>