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