view release on metacpan or  search on metacpan

lib/XML/Printer/ESCPOS/Tags.pm  view on Meta::CPAN

        return $self->{caller}->_set_error_message("wrong image tag usage") if ref $params->[0] ne 'HASH';
        return $self->{caller}->_set_error_message("wrong image tag usage") if %{ $params->[0] };
        return $self->{caller}->_set_error_message("wrong image tag usage") if $params->[1] ne '0';
        $filename = $params->[2];
    }

    return $self->{caller}->_set_error_message("wrong image tag usage: file does not exist") if !-f $filename;

    my $image;
    if ($filename =~ m/\.png$/) {
        $image = GD::Image->newFromPng($filename) or return $self->{caller}->_set_error_message("Error loading image file $filename");
    }
    elsif ($filename =~ m/\.gif$/) {
        $image = GD::Image->newFromGif($filename) or return $self->{caller}->_set_error_message("Error loading image file $filename");
    }
    elsif ($filename =~ m/\.jpe?g$/) {
        $image = GD::Image->newFromJpeg($filename) or return $self->{caller}->_set_error_message("Error loading image file $filename");
    }
    else {
        return $self->{caller}->_set_error_message("wrong image tag usage: file format not supported");
    }