view release on metacpan or  search on metacpan

lib/Image/Fixup.pm  view on Meta::CPAN

126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
sub autoResize {
        my $self  = shift;
        my $image = $self->getImage;
        $image->Resize(
                width  => int($image->Get('width') / 2),
                height => int($image->Get('height') / 2)
        );
        $self->updateInfo;
}
 
sub updateInfo {
        my $self  = shift;
        my $image = $self->getImage;
        $self->{height} = $image->Get('height');
        $self->{width} = $image->Get('width');
        $self->{filesize} = $image->Get('filesize');
}
 
sub writeImage {
        my $self  = shift;
        my $image = $self->getImage;