package PDF::FromHTML::Template::Container::PageDef; use strict; BEGIN { use vars qw(@ISA); @ISA = qw(PDF::FromHTML::Template::Container); use PDF::FromHTML::Template::Container; } use PDF::FromHTML::Template::Constants qw( %Verify ); sub new { my $class = shift; my $self = $class->SUPER::new(@_); $self->{NOPAGENUMBER} = 0 unless defined $self->{NOPAGENUMBER}; $self->{MARGINS} = 0 unless exists $self->{MARGINS}; $self->{$_} = $self->{MARGINS} for grep !exists $self->{$_}, qw(LEFT_MARGIN RIGHT_MARGIN); return $self; } sub find_margin_heights { my $self = shift; my ($context) = @_; my ($header_height, $footer_height) = (undef, undef); my $sub; $sub = sub { my $obj = shift; $obj->enter_scope($context) unless $obj->isa('PAGEDEF'); if ($obj->isa('HEADER')) { die "Cannot have two
tags in the same ", $/ if defined $header_height; $header_height = $context->get($obj, 'HEADER_HEIGHT'); } elsif ($obj->isa('FOOTER')) { die "Cannot have two