File Coverage

blib/lib/Imager/Image/Xpm.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	7	8	87.5
condition	1	2	50.0
subroutine	6	6	100.0
pod	0	1	0.0
total	37	41	90.2

# -*- perl -*-

# Copyright (C) 2015 Slaven Rezic. All rights reserved.
# This package is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.

package Imager::Image::Xpm;

use strict;
use vars qw($VERSION);
$VERSION = '0.01';

use base 'Imager::Image::Base';

use Image::Xpm;

sub new {
    my($class, %opts) = @_;
    my $file = delete $opts{file};
    die 'file option is mandatory' if !defined $file;
    die 'Unhandled options: ' . join(' ', %opts) if %opts;
    my $xpm = Image::Xpm->new(-file => $file);
    Imager::Image::Xpm->convert($xpm);
}

sub _has_transparency {
    my(undef, $image_base) = @_;
    my $palette = $image_base->get('-palette');
    if ($palette) {
	for my $color_spec (values %$palette) {
	    return 1 if ($color_spec->{'c'}||'') =~m{^none$}i;
	}
    }
    0;
}

1;

__END__