lib/Excel/Template/Element/FreezePanes.pm

   1 package Excel::Template::Element::FreezePanes;
   2
   3 use strict;
   4
   5 BEGIN {
   6     use vars qw(@ISA);
   7     @ISA = qw(Excel::Template::Element);
   8
   9     use Excel::Template::Element;
  10 }
  11
  12 sub render {
  13     my $self = shift;
  14     my ($context) = @_;
  15
  16     my ($row, $col) = map { $context->get( $self, $_ ) } qw( ROW COL );
  17     $context->active_worksheet->freeze_panes( $row, $col );
  18
  19     return 1;
  20 }
  21
  22 1;
  23 __END__
  24
  25 =head1 NAME
  26
  27 Excel::Template::Element::FreezePanes - Excel::Template::Element::FreezePanes
  28
  29 =head1 PURPOSE
  30
  31 To insert an image into the worksheet
  32
  33 =head1 NODE NAME
  34
  35 FREEZEPANES
  36
  37 =head1 INHERITANCE
  38
  39 L<ELEMENT|Excel::Template::Element>
  40
  41 =head1 EFFECTS
  42
  43 This will not conume any columns or rows. It is a zero-width assertion.
  44
  45 =head1 DEPENDENCIES
  46
  47 None
  48
  49 =head1 USAGE
  50
  51   <freezepanes />
  52
  53 This will do a Freeze Pane at the current cell.
  54
  55 =head1 AUTHOR
  56
  57 Rob Kinyon (rob.kinyon@gmail.com)
  58
  59 =head1 SEE ALSO
  60
  61 Nothing
  62
  63 =cut