File Coverage

lib/PDF/Boxer/Content/Grid.pm

Criterion	Covered	Total	%
statement	6	61	9.8
branch	0	20	0.0
condition	0	5	0.0
subroutine	2	6	33.3
pod	0	4	0.0
total	8	96	8.3

package PDF::Boxer::Content::Grid;
{
  $PDF::Boxer::Content::Grid::VERSION = '0.004';
}
use Moose;
# ABSTRACT: a box of rows with column widths aligned

use namespace::autoclean;

extends 'PDF::Boxer::Content::Column';

has 'hborder' => ( isa => 'Int', is => 'rw', default => 0 );
has 'vborder' => ( isa => 'Int', is => 'rw', default => 0 );

around 'render' => sub {
  my ($orig, $self) = @_;

  my $kids = $self->children;
  return unless @$kids;

  my $gfx = $self->boxer->doc->gfx;

  if ($self->hborder) {
    my @hlines;
    my $top_pos = $kids->[0]->padding_top;
    foreach my $kid (@$kids) {
      next if $top_pos == $kid->padding_top;
      $top_pos = $kid->padding_top;
      push @hlines, $top_pos;
    }

    if (@hlines) {
      $gfx->linewidth($self->hborder);
      for my $top (@hlines) {
        $gfx->move($self->content_left, $top);
        $gfx->line($self->content_right, $top);
        $gfx->stroke;
      }
    }
  }

  if ($self->vborder) {
    my @vlines;
    my $grand_kids = $kids->[0]->children;
    if (@$grand_kids) {
      my $left_pos = $grand_kids->[0]->padding_left;
      foreach my $grand_kid (@$grand_kids) {
        next if $left_pos == $grand_kid->padding_left;
        $left_pos = $grand_kid->padding_left;
        push @vlines, $left_pos;
      }

      if (@vlines) {
        $gfx->linewidth($self->vborder);
        for my $left (@vlines) {
          $gfx->move($left, $self->content_top);
          $gfx->line($left, $self->content_bottom);
          $gfx->stroke;
        }
      }
    }

  }

  $self->$orig();
};

sub update_children{
  my ($self) = @_;
  $self->update_kids_size     if $self->size_set;
  $self->update_kids_position if $self->position_set;
  $self->update_grand_kids;
  foreach my $kid (@{$self->children}){
    $kid->update;
  }
  return 1;
}

sub update_kids_position{
  my ($self) = @_;
  my $kids = $self->children;
  if (@$kids){
    my $top = $self->content_top;
    my $left = $self->content_left;
    foreach my $kid (@$kids){
      $kid->move($left, $top);
      $top -= $kid->margin_height;
    }
  }
  return 1;
}

sub update_kids_size{
  my ($self) = @_;

  my ($width, $height) = $self->get_default_size;

  my $kids = $self->children;

  if (@$kids){

    my $space = $self->height - $height;
    my ($has_grow,$grow,$grow_all);
    my ($space_each);
    if ($space < $height/10){
      foreach my $kid (@$kids){
        $has_grow++ if $kid->grow;
      }
      if (!$has_grow){
        $grow_all = 1;
        $has_grow = @$kids;
      }
      $space_each = int($space/$has_grow);
    }

    my $kwidth = $self->content_width;

    foreach my $kid (@$kids){
      my $kheight = $kid->margin_height;
      if ($grow_all || $kid->grow){
        $kheight += $space_each;
      }
      $kid->set_margin_size($kwidth, $kheight);
    }

  }

  return 1;
}

sub update_grand_kids{
  my ($self) = @_;

  my ($width, $height) = $self->get_default_size;

  my $kids = $self->children;

  if (@$kids){
    # calculate minumum widths of cells (kids)
    my @row_highs;
    foreach my $row (@$kids){
      my @cells;
      foreach my $cell (@{$row->children}){
        push(@cells, $cell->margin_width);
      }
      my $idx = 0;
      foreach my $val (@cells){
        $row_highs[$idx] = $val if $val > ($row_highs[$idx] || 0);
        $idx++;
      }
    }

    foreach (@$kids){
      $_->set_kids_minimum_width({ min_widths => \@row_highs });
    }
  }

  return 1;
}



__PACKAGE__->meta->make_immutable;

1;


__END__
=pod

=head1 NAME

PDF::Boxer::Content::Grid - a box of rows with column widths aligned

=head1 VERSION

version 0.004

=head1 AUTHOR

Jason Galea <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Jason Galea.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut