Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Imager::GIF seems broken

by vr (Curate)
on Jan 05, 2020 at 15:15 UTC ( [id://11110983]=note: print w/replies, xml ) Need Help??


in reply to Imager::GIF seems broken

Hi, apart from, contrary to Synopsis even, the write method expecting file name (not options hash), everything else seems to work per POD: the read is to be used as constructor (class method):

use strict; use warnings; use Imager::GIF; my $gif = shift || die 'need an image'; my $img; $img = Imager::GIF-> read( file => $gif ) or die $img-> errstr; $img = $img-> scale( scalefactor => 0.5 ); $img-> write( join '.', $gif, 'half', 'gif' ) or die $img-> errstr;

Replies are listed 'Best First'.
Re^2: Imager::GIF seems broken
by Anonymous Monk on Jan 05, 2020 at 15:44 UTC
    Thank you vr! The module works as expected when following your instructions. Apparently the documentation synopsis contains two severe errors.

    Imager::GIF synopsis:

    my $sonic = Imager::GIF->new(file => 'sonic.gif');
    
    Should be:
    my $sonic = Imager::GIF->read(file => 'sonic.gif');
    
    Imager::GIF synopsis:
    $small_sonic->write(file => 'small_sonic.gif');
    
    Should be:
    $small_sonic->write('small_sonic.gif');
    
    The first problem, not using the read method to construct the object, was causing the write error. The second issue, supplying a hash instead of file name to write method, silently fails to do anything.

    Kudos

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11110983]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others scrutinizing the Monastery: (2)
As of 2024-07-22 07:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?
    erzuuli‥ 🛈The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.