File Coverage

blib/lib/PDF/Make/Builder/Page/Header.pm

Criterion	Covered	Total	%
statement	38	40	95.0
branch	5	8	62.5
condition	1	2	50.0
subroutine	6	6	100.0
pod	1	1	100.0
total	51	57	89.4

package PDF::Make::Builder::Page::Header;
use strict;
use warnings;
use Object::Proto;
use PDF::Make::Builder::Page::HeaderFooterContext;

BEGIN {
    Object::Proto::define('PDF::Make::Builder::Page::Header',
        'h:Num:default(30)',
        'padding:Num:default(20)',
        'show_page_num:Str',
        'page_num_text:Str:default(Page {num})',
        'cb:CodeRef',
    );
    Object::Proto::import_accessors('PDF::Make::Builder::Page::Header');
}

sub render {
    my ($self, $builder, $page, $page_num) = @_;
    my $canvas = $page->canvas;
    my $pw = $page->w;
    my $ph = $page->h;
    my $pad = padding $self;
    my $hh = $self->h;

    # Header region: top of page
    my $header_y = $ph - $pad;

    # Custom callback
    my $callback = cb $self;
    if ($callback) {
        my $ctx = PDF::Make::Builder::Page::HeaderFooterContext->new(
            builder => $builder,
            page    => $page,
            canvas  => $canvas,
            x0      => 0,
            y0      => $header_y - $hh,
            w       => $pw,
            h       => $hh,
            padding => $pad,
            num     => $page_num,
            role    => 'header',
        );
        $callback->($self, $builder,
            ctx    => $ctx,
            canvas => $canvas, y => $header_y, w => $pw, h => $hh);
    }

    # Page number
    my $show = show_page_num $self;
    if ($show) {
        my $text = page_num_text $self;
        $text =~ s/\{num\}/$page_num/g;
        my $font = $builder->font;
        my $res = $font->ensure_loaded($page->xs_page, 'normal');
        my $font_size = 8;
        my ($r, $g, $b) = $font->hex_to_rgb('#666');
        my $tw = $font->measure_text($text) * ($font_size / ($font->size || 9));
        my $tx;
        if ($show eq 'right') {
            $tx = $pw - $pad - $tw;
        } elsif ($show eq 'center') {
            $tx = ($pw - $tw) / 2;
        } else {
            $tx = $pad;
        }
        $canvas->BT
               ->rg($r, $g, $b)
               ->Tf($res, $font_size)
               ->Tm(1, 0, 0, 1, $tx, $header_y - $font_size)
               ->Tj($text)
               ->ET;
    }
}

1;

__END__