package PDF::FromHTML::Template::Container::PdfTemplate;
use strict;
BEGIN {
use vars qw(@ISA);
@ISA = qw(PDF::FromHTML::Template::Container);
use PDF::FromHTML::Template::Container;
}
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
# The default color is black
$self->{COLOR} = '0,0,0' unless exists $self->{COLOR};
return $self;
}
sub should_render {
# my $self = shift;
# my ($context) = @_;
return 1;
}
sub render {
my $self = shift;
my ($context) = @_;
$self->enter_scope($context);
my $child_success = $self->SUPER::render($context)
if $self->should_render($context);
$self->exit_scope($context);
return $child_success;
}
#sub preprocess {
# my $self = shift;
# my ($context) = @_;
#
# $self->enter_scope($context);
#
# $context->{PARAM_MAP}[0]{__LAST_PAGE__} = 0;
# unless ($context->get($self, 'NOLASTPAGE')) {
# my $old_PDF = $context->{PDF};
#
# my $p = PDF::Writer->new;
# $p->open() or die "Could not open buffer.", $/;
#
# $context->{PDF} = $p;
#
# $context->{CALC_LAST_PAGE} = 1;
# $self->SUPER::render($context);
# $context->{CALC_LAST_PAGE} = 0;
#
# $p->close;
# $self->reset;
# $context->delete_fonts;
#
# $context->{PDF} = $old_PDF;
# $context->{PARAM_MAP}[0]{__LAST_PAGE__} = $context->{PARAM_MAP}[0]{__PAGE__} - 1;
# $context->{PARAM_MAP}[0]{__PAGE__} = 1;
# $context->{PARAM_MAP}[0]{__PAGEDEF__} = 0;
# }
#
# $self->exit_scope($context, 1);
#
# return 1;
#}
1;
__END__
=head1 NAME
PDF::FromHTML::Template::Container::PdfTemplate
=head1 PURPOSE
The root node
=head1 NODE NAME
PDFTEMPLATE
=head1 INHERITANCE
PDF::FromHTML::Template::Container
=head1 ATTRIBUTES
=over 4
=item * NOLASTPAGE - If this is set to true, then __LAST_PAGE__ will not be
calculated. This can provide a decent speed improvement.
=back
=head1 CHILDREN
None
=head1 AFFECTS
Nothing
=head1 DEPENDENCIES
None
=head1 USAGE
... Children here ...
=head1 AUTHOR
Rob Kinyon (rkinyon@columbus.rr.com)
=head1 SEE ALSO
=cut