| Current Path : /lib64/perl5/vendor_perl/Prima/Image/ |
| Current File : //lib64/perl5/vendor_perl/Prima/Image/png.pm |
package Prima::Image::png;
use strict;
use warnings;
use Prima qw(Image::Animate);
sub animation_to_frames
{
my $a = Prima::Image::Animate::PNG->new(images => \@_);
my @ret;
for ( @_ ) {
$a->next;
my $n = (ref eq 'Prima::Icon') ? $a->icon : $a->image;
$n->{extras} = $_->{extras} if exists $_->{extras};
push @ret, $n;
}
return @ret;
}
1;