File Coverage

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

Criterion	Covered	Total	%
statement	27	27	100.0
branch	2	2	100.0
condition	3	4	75.0
subroutine	7	7	100.0
pod	2	2	100.0
total	41	42	97.6

package PDF::Make::Builder::Layout;
use strict;
use warnings;
use Object::Proto;
use PDF::Make::Builder::Layout::Row;

BEGIN {
    Object::Proto::define('PDF::Make::Builder::Layout',
        'builder:required',
        'rows:ArrayRef:default([])',
    );
    Object::Proto::import_accessors('PDF::Make::Builder::Layout');
}

sub row {
    my ($self, %args) = @_;
    my $rows = rows $self;
    my %row_args = (
        layout => $self,
        margin => $args{margin} // 5,
        gap    => $args{gap} // 0,
    );
    $row_args{height} = $args{height} if defined $args{height};
    push @$rows, PDF::Make::Builder::Layout::Row->new(%row_args);
    return $rows->[-1];
}

sub render {
    my ($self) = @_;
    my $builder = builder $self;
    my $page = $builder->page;

    for my $row (@{rows $self}) {
        $row->render($builder, $page);
    }

    return $builder;
}

1;

__END__