Data::Commons::Image - Data object for Wikimedia Commons image.
use Data::Commons::Image; my $obj = Data::Commons::Image->new(%params); my $author = $obj->author; my $comment = $obj->comment; my $commons_name = $obj->commons_name; my $dt_created = $obj->dt_created; my $dt_uploaded = $obj->dt_uploaded; my $height = $obj->height; my $id = $obj->id; my $license = $obj->license; my $page_id = $obj->page_id; my $size = $obj->size; my $url = $obj->url; my $url_cb = $obj->url_cb; my $width = $obj->width;
Data object for Wikimedia Commons image. Inherits Data::Image common object.
new
my $obj = Data::Commons::Image->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.
commons_name
Image name in Wikimedia Commons. It's required.
dt_created
Date and time the image was created. Value must be DateTime object. It's optional.
dt_uploaded
Date and time the image was uploaded to Wikimedia Commons. Value must be DateTime object. It's optional.
height
Image height. It's optional. Default value is undef.
id
Image id. It's optional. Default value is undef.
license
Image license. It's optional. Default value is undef.
page_id
Image page id on Wikimedia Commons. It's used for structured data with 'M' prefix. 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.
my $author = $obj->author;
Get image author.
Returns string.
my $comment = $obj->comment;
Get image comment.
my $commons_name = $obj->commons_name;
Get image name in Wikimedia Commons.
my $dt_created = $obj->dt_created;
Get date and time the image was created.
Returns DateTime object.
my $dt_uploaded = $obj->dt_uploaded;
Get date and time the image was uploaded to Wikimedia Commons.
my $height = $obj->height;
Get image height.
Returns number.
my $id = $obj->id;
Get image id.
my $license = $obj->license;
Get image license.
my $page_id = $obj->page_id;
Get image page id.
my $size = $obj->size;
Get image size.
my $url = $obj->url;
Get URL of image.
my $url_cb = $obj->url_cb;
Get URL callback.
Returns code.
my $width = $obj->width;
Get image width.
new(): From Data::Image: From Mo::utils: Parameter 'author' has length greater than '255'. Value: %s Parameter 'comment' has length greater than '1000'. Value: %s Parameter 'dt_created' must be a 'DateTime' object. Value: %s Reference: %s Parameter 'height' must a number. Value: %s Parameter 'id' must a number. Value: %s Parameter 'size' must a number. Value: %s Parameter 'url' has length greater than '255'. Value: %s Parameter 'url_cb' must be a code. Value: %s Parameter 'width' must a number. Value: %s Parameter 'commons_name' is required. Parameter 'commons_name' has length greater than '255'. Value: %s Parameter 'dt_uploaded' must be a 'DateTime' object. Value: %s Reference: %s Parameter 'page_id' must a number. Value: %s
use strict; use warnings; use Data::Commons::Image; use DateTime; my $obj = Data::Commons::Image->new( 'author' => 'Zuzana Zonova', 'comment' => 'Michal from Czechia', 'commons_name' => 'Michal_from_Czechia.jpg', 'dt_created' => DateTime->new( 'day' => 1, 'month' => 1, 'year' => 2022, ), 'dt_uploaded' => DateTime->new( 'day' => 14, 'month' => 7, 'year' => 2022, ), 'height' => 2730, 'license' => 'cc-by-sa-4.0', 'page_id' => '95648152', 'size' => 1040304, 'url' => 'https://upload.wikimedia.org/wikipedia/commons/a/a4/Michal_from_Czechia.jpg', 'width' => 4096, ); # Print out. print 'Author: '.$obj->author."\n"; print 'Comment: '.$obj->comment."\n"; print 'Wikimedia Commons name: '.$obj->commons_name."\n"; print 'Height: '.$obj->height."\n"; print 'Size: '.$obj->size."\n"; print 'URL: '.$obj->url."\n"; print 'Width: '.$obj->width."\n"; print 'License: '.$obj->license."\n"; print 'Page id: '.$obj->page_id."\n"; print 'Date and time the photo was created: '.$obj->dt_created."\n"; print 'Date and time the photo was uploaded: '.$obj->dt_uploaded."\n"; # Output: # Author: Zuzana Zonova # Comment: Michal from Czechia # Wikimedia Commons name: Michal_from_Czechia.jpg # Height: 2730 # Size: 1040304 # URL: https://upload.wikimedia.org/wikipedia/commons/a/a4/Michal_from_Czechia.jpg # Width: 4096 # License: cc-by-sa-4.0 # Page id: 95648152 # Date and time the photo was created: 2022-01-01T00:00:00 # Date and time the photo was uploaded: 2022-07-14T00:00:00
Data::Image, Mo, Mo::utils.
https://github.com/michal-josef-spacek/Data-Commons-Image
Michal Josef Špaček mailto:skim@cpan.org
http://skim.cz
© 2022-2023 Michal Josef Špaček
BSD 2-Clause License
0.06
To install Data::Commons::Image, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Data::Commons::Image
CPAN shell
perl -MCPAN -e shell install Data::Commons::Image
For more information on module installation, please visit the detailed CPAN module installation guide.