Commit | Line | Data |
5b1d7194 |
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 |