The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

XML::NewsML_G2::News_Item_Graphics - a picture news item

SYNOPSIS

    my $ni = XML::NewsML_G2::News_Item_Graphics->new
        (guid => "tag:example.com,2013:service:date:number",
         title => "Story title",
         slugline => "the/slugline",
         language => 'de',
         provider => $provider,
         service => $service,
         photographer => 'Homer Simpson'
        );

    my $ai = XML::NewsML_G2::Graphics->new
        (mimetype => 'application/illustrator',
        );

    my $pic = XML::NewsML_G2::Picture->new
        (mimetype => 'image/jpg',
         rendition => 'highRes',
         width => 1600,
         height => 1024
        );

    my $thumb = XML::NewsML_G2::Picture->new
        (mimetype => 'image/jpg',
         rendition => 'thumb',
         width => 48,
         height => 32
        );
    $ni->add_remote('file://tmp/files/123.ai', $ai);
    $ni->add_remote('file://tmp/files/123.hires.jpg', $pic);
    $ni->add_remote('file://tmp/files/123.thumb.jpg', $thumb);

ATTRIBUTES

AUTHOR

Mario Paumann <mario.paumann@apa.at>

LICENCE AND COPYRIGHT

Copyright (c) 2014, APA-IT. All rights reserved.

See XML::NewsML_G2 for the license.