File Coverage

blib/lib/PDF/Make/Builder/Image.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	6	6	100.0
condition	7	9	77.7
subroutine	6	6	100.0
pod	1	1	100.0
total	57	59	96.6

package PDF::Make::Builder::Image;
use strict;
use warnings;
use Object::Proto;
use PDF::Make::Image;

BEGIN {
    Object::Proto::define('PDF::Make::Builder::Image',
        'image:Str:required',
        'mime:Str',
        'align:Str',
        'x:Num', 'y:Num', 'w:Num', 'h:Num',
    );
    Object::Proto::import_accessors('PDF::Make::Builder::Image');
}

sub add {
    my ($self, $builder) = @_;
    my $page = $builder->page;
    my $canvas = $page->canvas;

    # Load the image
    my $img = PDF::Make::Image->from_file($self->image);
    my $img_w = $img->width;
    my $img_h = $img->height;

    # Write image XObject to document
    my $doc = $builder->doc;
    my $obj_num = $img->write_to_doc($doc);

    # Generate unique resource name
    my $res_name = 'Im' . $obj_num;
    $page->xs_page->add_image($res_name, $obj_num);

    # Determine placement dimensions
    my $draw_w = $self->w // $page->width;
    my $draw_h = $self->h;

    # Maintain aspect ratio if only one dimension given
    if (!defined $draw_h) {
        $draw_h = $draw_w * ($img_h / $img_w);
    }

    # Position
    my $draw_x = $self->x // $page->content_x;
    my $draw_y = $self->y;

    if (!defined $draw_y) {
        $draw_y = $page->cursor_y - $draw_h;
    }

    # Center alignment
    if ($self->align && $self->align eq 'center') {
        $draw_x = $page->content_x + ($page->width - $draw_w) / 2;
    }

    # Draw
    $canvas->image($res_name, $draw_x, $draw_y, $draw_w, $draw_h);

    # Advance cursor
    $page->advance_y($draw_h + 5);

    return $self;
}

1;

__END__