X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FExcel%2FTemplate%2FContainer.pm;h=1693609f09f5eb8752afbe2e521859e5a6968947;hb=d01e47224d7454eac9a23d08b004a0493292dad5;hp=2b65d716746857f8a2f159d5e3f3084085ff71af;hpb=e976988f30574c0c21cfa29fc5d080827e003fb6;p=p5sagit%2FExcel-Template.git

diff --git a/lib/Excel/Template/Container.pm b/lib/Excel/Template/Container.pm
index 2b65d71..1693609 100644
--- a/lib/Excel/Template/Container.pm
+++ b/lib/Excel/Template/Container.pm
@@ -19,28 +19,29 @@ sub new
 
     $self->{ELEMENTS} = []
         unless exists $self->{ELEMENTS} &&
-            UNIVERSAL::isa($self->{ELEMENTS}, 'ARRAY');
+            ref $self->{ELEMENTS} eq 'ARRAY';
 
     return $self;
 }
 
-sub _do_page
-{
-    my $self = shift;
-    my ($method, $context) = @_;
-
-    for my $e (@{$self->{ELEMENTS}})
-    {
-        $e->enter_scope($context);
-        $e->$method($context);
-        $e->exit_scope($context, 1);
-    }
-
-    return 1;
-}
-
-sub begin_page { _do_page 'begin_page', @_ }
-sub end_page   { _do_page 'end_page', @_   }
+# Removed as unused code
+#sub _do_page
+#{
+#    my $self = shift;
+#    my ($method, $context) = @_;
+#
+#    for my $e (@{$self->{ELEMENTS}})
+#    {
+#        $e->enter_scope($context);
+#        $e->$method($context);
+#        $e->exit_scope($context, 1);
+#    }
+#
+#    return 1;
+#}
+#
+#sub begin_page { _do_page 'begin_page', @_ }
+#sub end_page   { _do_page 'end_page', @_   }
 
 sub iterate_over_children
 {
@@ -71,6 +72,7 @@ sub render { $_[0]->iterate_over_children($_[1]) }
 #    return $self->iterate_over_children($context);
 #}
 
+# Removed as unused code
 #sub max_of
 #{
 #    my $self = shift;