r13925@rob-kinyons-powerbook58: rob | 2006-06-02 14:29:05 -0400

[p5sagit/Excel-Template.git] / lib / Excel / Template / Element / FreezePanes.pm

diff --git a/lib/Excel/Template/Element/FreezePanes.pm b/lib/Excel/Template/Element/FreezePanes.pm
new file mode 100644 (file)
index 0000000..db4a534
--- /dev/null
+++ b/lib/Excel/Template/Element/FreezePanes.pm
@@ -0,0 +1,63 @@
+package Excel::Template::Element::FreezePanes;
+
+use strict;
+
+BEGIN {
+    use vars qw(@ISA);
+    @ISA = qw(Excel::Template::Element);
+
+    use Excel::Template::Element;
+}
+
+sub render {
+    my $self = shift;
+    my ($context) = @_;
+
+    my ($row, $col) = map { $context->get( $self, $_ ) } qw( ROW COL );
+    $context->active_worksheet->freeze_panes( $row, $col );
+
+    return 1;
+}
+
+1;
+__END__
+
+=head1 NAME
+
+Excel::Template::Element::FreezePanes - Excel::Template::Element::FreezePanes
+
+=head1 PURPOSE
+
+To insert an image into the worksheet
+
+=head1 NODE NAME
+
+FREEZEPANES
+
+=head1 INHERITANCE
+
+L<ELEMENT|Excel::Template::Element>
+
+=head1 EFFECTS
+
+This will not conume any columns or rows. It is a zero-width assertion.
+
+=head1 DEPENDENCIES
+
+None
+
+=head1 USAGE
+
+  <freezepanes />
+
+This will do a Freeze Pane at the current cell.
+
+=head1 AUTHOR
+
+Rob Kinyon (rob.kinyon@gmail.com)
+
+=head1 SEE ALSO
+
+Nothing
+
+=cut