1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
package LaTeX::Table::Types::Ctable;
use Moose;
with 'LaTeX::Table::Types::TypeI';
use version; our $VERSION = qv('1.0.6');
my $template = <<'EOT'
{[% DEFINE_COLORS_CODE %][% IF FONTSIZE %]\[% FONTSIZE %]
[% END %][% IF FONTFAMILY %]\[% FONTFAMILY %]family
[% END %][% EXTRA_ROW_HEIGHT_CODE %][% RULES_WIDTH_GLOBAL_CODE %][% RESIZEBOX_BEGIN_CODE %]
\ctable[[% IF CAPTION %]caption = {[% CAPTION %]},
[% IF SHORTCAPTION %]cap = {[% SHORTCAPTION %]},
[% END %][% UNLESS CAPTION_TOP %]botcap,
[% END %][% END %][% IF POSITION %]pos = [% POSITION %],
[% END %][% IF LABEL %]label = {[% LABEL %]},
[% END %][% IF MAXWIDTH %]maxwidth = {[% MAXWIDTH %]},
[% END %][% IF WIDTH %]width = {[% WIDTH %]},
[% END %][% IF CENTER %]center,
[% END %][% IF LEFT %]left,
[% END %][% IF RIGHT %]right,
[% END %][% IF SIDEWAYS %]sideways,
[% END %][% IF STAR %]star,
[% END %][% IF CONTINUED %]continued = {[% CONTINUEDMSG %]},
[% END %]]{[% COLDEF %]}{[% FOOTTABLE %]}{
[% RULES_COLOR_GLOBAL_CODE %][% HEADER_CODE %][% DATA_CODE %]}
[% RESIZEBOX_END_CODE %]}
EOT
;
has '+_tabular_environment' => ( default => 'tabular' );
has '+_template' => ( default => $template );
# default width environment is tabularx
after '_check_options' => sub {
my ($self) = @_;
if ( $self->_table_obj->get_width || $self->_table_obj->get_maxwidth ) {
$self->_table_obj->set_width_environment('tabularx');
}
};
1;
__END__
=head1 NAME
LaTeX::Table::Types::Ctable - Create LaTeX tables with the ctable package.
=head1 INTERFACE
=over
=item C<generate_latex_code>
=back
=head1 SEE ALSO
L<LaTeX::Table>, L<LaTeX::Table::Types::TypeI>
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2006-2010 C<< <limaone@cpan.org> >>
This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
=cut
# vim: ft=perl sw=4 ts=4 expandtab
|
