lib/Excel/Template/Container.pm

   1 package Excel::Template::Container;
   2
   3 use strict;
   4
   5 BEGIN {
   6     use vars qw(@ISA);
   7     @ISA = qw(Excel::Template::Base);
   8
   9     use Excel::Template::Base;
  10 }
  11
  12 # Containers are objects that can contain arbitrary elements, such as
  13 # PageDefs or Loops.
  14
  15 sub new
  16 {
  17     my $class = shift;
  18     my $self = $class->SUPER::new(@_);
  19
  20     $self->{ELEMENTS} = []
  21         unless exists $self->{ELEMENTS} &&
  22             UNIVERSAL::isa($self->{ELEMENTS}, 'ARRAY');
  23
  24     return $self;
  25 }
  26
  27 sub _do_page
  28 {
  29     my $self = shift;
  30     my ($method, $context) = @_;
  31
  32     for my $e (@{$self->{ELEMENTS}})
  33     {
  34         $e->enter_scope($context);
  35         $e->$method($context);
  36         $e->exit_scope($context, 1);
  37     }
  38
  39     return 1;
  40 }
  41
  42 sub begin_page { _do_page 'begin_page', @_ }
  43 sub end_page   { _do_page 'end_page', @_   }
  44
  45 sub iterate_over_children
  46 {
  47     my $self = shift;
  48     my ($context) = @_;
  49
  50     my $continue = 1;
  51
  52     for my $e (
  53         @{$self->{ELEMENTS}})
  54     {
  55         $e->enter_scope($context);
  56
  57         my $rc = $e->render($context);
  58         $continue = $rc if $continue;
  59
  60         $e->exit_scope($context);
  61     }
  62
  63     return $continue;
  64 }
  65
  66 sub render { $_[0]->iterate_over_children($_[1]) }
  67 #{
  68 #    my $self = shift;
  69 #    my ($context) = @_;
  70 #
  71 #    return $self->iterate_over_children($context);
  72 #}
  73
  74 #sub max_of
  75 #{
  76 #    my $self = shift;
  77 #    my ($context, $attr) = @_;
  78 #
  79 #    my $max = $context->get($self, $attr);
  80 #
  81 #    ELEMENT:
  82 #    foreach my $e (@{$self->{ELEMENTS}})
  83 #    {
  84 #        $e->enter_scope($context);
  85 #
  86 #        my $v = $e->isa('CONTAINER')
  87 #            ? $e->max_of($context, $attr)
  88 #            : $e->calculate($context, $attr);
  89 #
  90 #        $max = $v if $max < $v;
  91 #
  92 #        $e->exit_scope($context, 1);
  93 #    }
  94 #
  95 #    return $max;
  96 #}
  97 #
  98 #sub total_of
  99 #{
 100 #    my $self = shift;
 101 #    my ($context, $attr) = @_;
 102 #
 103 #    my $total = 0;
 104 #
 105 #    ELEMENT:
 106 #    foreach my $e (@{$self->{ELEMENTS}})
 107 #    {
 108 #        $e->enter_scope($context);
 109 #
 110 #        $total += $e->isa('CONTAINER')
 111 #            ? $e->total_of($context, $attr)
 112 #            : $e->calculate($context, $attr);
 113 #
 114 #        $e->exit_scope($context, 1);
 115 #    }
 116 #
 117 #    return $total;
 118 #}
 119
 120 1;
 121 __END__
 122
 123 =head1 NAME
 124
 125 Excel::Template::Container
 126
 127 =head1 PURPOSE
 128
 129 =head1 NODE NAME
 130
 131 =head1 INHERITANCE
 132
 133 =head1 ATTRIBUTES
 134
 135 =head1 CHILDREN
 136
 137 =head1 AFFECTS
 138
 139 =head1 DEPENDENCIES
 140
 141 =head1 USAGE
 142
 143 =head1 AUTHOR
 144
 145 Rob Kinyon (rob.kinyon@gmail.com)
 146
 147 =head1 SEE ALSO
 148
 149 =cut