r64293 - in /trunk/liblatex-table-perl: ./ bin/ debian/ examples/ lib/LaTeX/ lib/LaTeX/Table/Themes/ lib/LaTeX/Table/Types/ t/
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Wed Oct 27 07:23:59 UTC 2010
Author: carnil
Date: Wed Oct 27 07:23:41 2010
New Revision: 64293
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=64293
Log:
New upstream release
Added:
trunk/liblatex-table-perl/t/90.ltpretty.t
- copied unchanged from r64292, branches/upstream/liblatex-table-perl/current/t/90.ltpretty.t
trunk/liblatex-table-perl/t/ltpretty.txt
- copied unchanged from r64292, branches/upstream/liblatex-table-perl/current/t/ltpretty.txt
Modified:
trunk/liblatex-table-perl/Changes
trunk/liblatex-table-perl/MANIFEST
trunk/liblatex-table-perl/META.yml
trunk/liblatex-table-perl/README
trunk/liblatex-table-perl/bin/csv2pdf
trunk/liblatex-table-perl/bin/ltpretty
trunk/liblatex-table-perl/debian/changelog
trunk/liblatex-table-perl/examples/examples.pdf
trunk/liblatex-table-perl/examples/generate_examples.pl
trunk/liblatex-table-perl/lib/LaTeX/Table.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Beamer.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Booktabs.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Classic.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Modern.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/ThemeI.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Ctable.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Longtable.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Std.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm
trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Xtab.pm
trunk/liblatex-table-perl/t/10.table-ctable.t
Modified: trunk/liblatex-table-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/Changes?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/Changes (original)
+++ trunk/liblatex-table-perl/Changes Wed Oct 27 07:23:41 2010
@@ -1,5 +1,13 @@
Revision history for LaTeX-Table
-
+
+1.0.6 Mon Oct 25 2010
+ - eor option (thanks Jens)
+ - POD: Ascii tables of classic themes.
+ - fixed #62016 (thanks Bowen)
+ - ltpretty ignores empty trailing lines
+ - ltpretty test
+ - Evanston theme (Booktabs)
+
1.0.5 Wed Aug 25 2010
- Set min. version of MooseX::FollowPBP to 0.03 (older versions caused
cpan test fails)
Modified: trunk/liblatex-table-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/MANIFEST?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/MANIFEST (original)
+++ trunk/liblatex-table-perl/MANIFEST Wed Oct 27 07:23:41 2010
@@ -35,6 +35,8 @@
t/60.coldef.t
t/70.callback.t
t/80.themes.t
+t/90.ltpretty.t
+t/ltpretty.txt
t/lib/MyThemes/Custom.pm
xt/release/perlcritic.t
xt/release/perlcriticrc
Modified: trunk/liblatex-table-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/META.yml?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/META.yml (original)
+++ trunk/liblatex-table-perl/META.yml Wed Oct 27 07:23:41 2010
@@ -17,37 +17,37 @@
provides:
LaTeX::Table:
file: lib/LaTeX/Table.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Themes::Beamer:
file: lib/LaTeX/Table/Themes/Beamer.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Themes::Booktabs:
file: lib/LaTeX/Table/Themes/Booktabs.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Themes::Classic:
file: lib/LaTeX/Table/Themes/Classic.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Themes::Modern:
file: lib/LaTeX/Table/Themes/Modern.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Themes::ThemeI:
file: lib/LaTeX/Table/Themes/ThemeI.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Types::Ctable:
file: lib/LaTeX/Table/Types/Ctable.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Types::Longtable:
file: lib/LaTeX/Table/Types/Longtable.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Types::Std:
file: lib/LaTeX/Table/Types/Std.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Types::TypeI:
file: lib/LaTeX/Table/Types/TypeI.pm
- version: v1.0.5
+ version: v1.0.6
LaTeX::Table::Types::Xtab:
file: lib/LaTeX/Table/Types/Xtab.pm
- version: v1.0.5
+ version: v1.0.6
recommends:
Getopt::Long: 0
LaTeX::Driver: 0
@@ -69,4 +69,4 @@
resources:
license: http://dev.perl.org/licenses/
repository: http://github.com/lima1/p5-latex-table
-version: v1.0.5
+version: v1.0.6
Modified: trunk/liblatex-table-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/README?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/README (original)
+++ trunk/liblatex-table-perl/README Wed Oct 27 07:23:41 2010
@@ -1,4 +1,4 @@
-LaTeX-Table version 1.0.5
+LaTeX-Table version 1.0.6
This module supports multipage tables via the xtab and the longtable package.
For publication quality tables it utilizes the booktabs package. It also
Modified: trunk/liblatex-table-perl/bin/csv2pdf
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/bin/csv2pdf?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/bin/csv2pdf (original)
+++ trunk/liblatex-table-perl/bin/csv2pdf Wed Oct 27 07:23:41 2010
@@ -2,8 +2,6 @@
use strict;
use warnings;
-
-use utf8;
use autodie qw(open close);
use English qw( -no_match_vars );
@@ -21,7 +19,7 @@
use LaTeX::Encode;
use LaTeX::Driver;
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
my ( $infile, $outfile, $outfiletex, $help, $man, $version );
Modified: trunk/liblatex-table-perl/bin/ltpretty
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/bin/ltpretty?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/bin/ltpretty (original)
+++ trunk/liblatex-table-perl/bin/ltpretty Wed Oct 27 07:23:41 2010
@@ -6,7 +6,7 @@
use LaTeX::Table;
use Carp;
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
my $line_id = 0;
my @input;
@@ -29,6 +29,11 @@
$line_id++;
}
+# remove trailing empty lines
+while ( !length $input[-1] ) {
+ pop @input;
+}
+
# uncomment original input
_say( join q{}, map {"\n % $_"} ( $paramline, @input ) );
@@ -86,7 +91,8 @@
The first line must contain the L<LaTeX::Table> options (separated by
semicolons C<;>) in the format C<optionname=value>. The
second line must contain the header, the following lines the data.
-Columns are separated by C<&>.
+Columns are separated by C<&>. Trailing empty lines are ignored, other
+empty lines generate horizontal rules (as in L<LaTeX::Table>).
=head1 EXAMPLE
@@ -94,6 +100,7 @@
Item:2c & Price
Gnat& per gram& 13.65
& each& 0.01
+
Gnu& stuffed& 92.59
Emu& stuffed& 33.33
Armadillo& frozen& 8.99
@@ -126,6 +133,7 @@
% Item:2c & Price
% Gnat& per gram& 13.65
% & each& 0.01
+ %
% Gnu& stuffed& 92.59
% Emu& stuffed& 33.33
% Armadillo& frozen& 8.99
@@ -138,6 +146,7 @@
\midrule
Gnat & per gram & 13.65 \\
& each & 0.01 \\
+ \midrule
Gnu & stuffed & 92.59 \\
Emu & stuffed & 33.33 \\
Armadillo & frozen & 8.99 \\
Modified: trunk/liblatex-table-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/changelog?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/debian/changelog (original)
+++ trunk/liblatex-table-perl/debian/changelog Wed Oct 27 07:23:41 2010
@@ -1,5 +1,6 @@
-liblatex-table-perl (1.0.5-2) UNRELEASED; urgency=low
+liblatex-table-perl (1.0.6-1) UNRELEASED; urgency=low
+ * New upstream release
* Update my email address.
-- Salvatore Bonaccorso <carnil at debian.org> Sun, 10 Oct 2010 15:03:08 +0200
Modified: trunk/liblatex-table-perl/examples/examples.pdf
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/examples/examples.pdf?rev=64293&op=diff
==============================================================================
Binary files - no diff available.
Modified: trunk/liblatex-table-perl/examples/generate_examples.pl
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/examples/generate_examples.pl?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/examples/generate_examples.pl (original)
+++ trunk/liblatex-table-perl/examples/generate_examples.pl Wed Oct 27 07:23:41 2010
@@ -8,6 +8,8 @@
use Number::Format qw(:subs);
use Data::Dumper;
use Text::CSV;
+
+use utf8;
system('rm *.tex');
@@ -56,7 +58,7 @@
my $test_header
= [ [ 'Item:2c', '' ], [ 'Animal', 'Description', 'Price' ] ];
- if ( $theme eq 'Zurich' || $theme eq 'Meyrin' ) {
+ if ( $theme eq 'Zurich' || $theme eq 'Meyrin' || $theme eq 'Evanston' ) {
$test_header = [
[ 'Item:2c', '' ],
['\cmidrule(r){1-2}'],
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table.pm Wed Oct 27 07:23:41 2010
@@ -7,7 +7,7 @@
use Moose::Util::TypeConstraints;
use MooseX::FollowPBP;
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
use LaTeX::Table::Types::Std;
use LaTeX::Table::Types::Xtab;
@@ -28,7 +28,9 @@
# Str
for my $attr (
- qw(label maincaption shortcaption caption caption_top coldef custom_template width maxwidth width_environment custom_tabular_environment position tabletail star)
+ qw(label maincaption shortcaption caption caption_top coldef
+ custom_template width maxwidth width_environment
+ custom_tabular_environment position tabletail star)
)
{
has $attr => ( is => 'rw', isa => 'Str', default => 0 );
@@ -36,6 +38,7 @@
has 'filename' => ( is => 'rw', isa => 'Str', default => 'latextable.tex' );
has 'foottable' => ( is => 'rw', isa => 'Str', default => q{} );
+has 'eor' => ( is => 'rw', isa => 'Str', default => q{\\\\} );
has 'environment' => ( is => 'rw', isa => 'Str', default => 1 );
has 'theme' => ( is => 'rw', isa => 'Str', default => 'Meyrin' );
has 'continuedmsg' => ( is => 'rw', isa => 'Str', default => '(continued)' );
@@ -381,7 +384,7 @@
for my $i ( 0 .. scalar( @{$row} ) - 1 ) {
$row->[$i] = sprintf '%-*s', $max{$i}, $row->[$i];
}
- $code .= join( ' & ', @{$row} ) . " \\\\\n";
+ $code .= join( ' & ', @{$row} ) . q{ } . $self->get_eor . "\n";
}
return $code;
}
@@ -653,7 +656,7 @@
=head1 VERSION
-This document describes LaTeX::Table version 1.0.5
+This document describes LaTeX::Table version 1.0.6
=head1 SYNOPSIS
@@ -1151,8 +1154,9 @@
\begin{tabular*}{0.75\textwidth}{l@{\extracolsep{\fill} ... }
For tables of C<type> I<std>, it is also possible to use the C<tabularx> and
-C<tabulary> LaTeX packages (see C<width_environment> below). The tables of type I<ctable>
-automatically use the C<tabularx> package.
+C<tabulary> LaTeX packages (see C<width_environment> below). The tables of
+type I<ctable> automatically use the C<tabularx> package. See also
+C<width_environment> for how to use this feature with I<longtable>.
=item C<width_environment>
@@ -1194,6 +1198,15 @@
=item C<maxwidth>
Only supported by tables of type I<ctable>.
+
+=item C<eor>
+
+String specifying the end of a row. Default is '\\'.
+
+ $table->set_eor("\\\\[1em]");
+
+Callback functions (see below) can be used to manually set the eor after the last
+column. This is useful when some rows require different eor strings.
=item C<callback>
@@ -1411,7 +1424,7 @@
=over
-=item ANSGAR for some great patches.
+=item ANDREWF, ANSGAR and REHSACK for some great patches and suggestions.
=item David Carlisle for the C<colortbl>, C<longtable>, C<ltxtable>,
C<tabularx> and C<tabulary> LaTeX packages.
@@ -1420,9 +1433,6 @@
=item Simon Fear for the C<booktabs> LaTeX package. The L<"SYNOPSIS"> table is
the example in his documentation.
-
-=item Andrew Ford (ANDREWF) for many great suggestions. He also wrote
-L<LaTeX::Driver> and L<LaTeX::Encode> which are used by I<csv2pdf>.
=item Lapo Filippo Mori for the excellent tutorial I<Tables in LaTeX2e:
Packages and Methods>.
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Beamer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Beamer.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Beamer.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Beamer.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
sub _definition {
my $themes = {
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Booktabs.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Booktabs.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Booktabs.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Booktabs.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
sub _definition {
my $themes = {
@@ -20,6 +20,16 @@
'VERTICAL_RULES' => [ 0, 0, 0 ],
'HORIZONTAL_RULES' => [ 1, 1, 0 ],
'BOOKTABS' => 1,
+ },
+ 'Evanston' => {
+ 'HEADER_FONT_STYLE' => 'bf',
+ 'STUB_ALIGN' => 'l',
+ 'VERTICAL_RULES' => [ 0, 0, 0 ],
+ 'HORIZONTAL_RULES' => [ 1, 1, 0 ],
+ 'RULES_CMD' => [
+ '\toprule', '\midrule[\heavyrulewidth]',
+ '\midrule', '\bottomrule'
+ ],
},
};
return $themes;
@@ -38,6 +48,7 @@
Meyrin # as described in the booktabs documentation
Zurich # header centered and in bold font
+ Evanston # as described in Lapo Filippo Mori's tutorial
=head1 REQUIRES
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Classic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Classic.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Classic.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Classic.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
sub _definition {
my $themes = {
@@ -62,15 +62,65 @@
This module provides following themes:
- Berlin
- Dresden
- Houston
- Miami
- plain
+=over
+
+=item plain
+
+ Animal Description Price
+ Gnu stuffed 92.59
+ Emu stuffed 33.33
+
+=item Miami
+
+ Animal Description Price
+ ----------------------------------
+ Gnu stuffed 92.59
+ Emu stuffed 33.33
+
+
+=item Berlin
+
+ +--------+-------------+--------+
+ | Animal | Description | Price |
+ +========+=============+========+
+ | Gnu | stuffed | 92.59 |
+ | Emu | stuffed | 33.33 |
+ +--------+-------------+--------+
+
+=item Dresden
+
+ +--------++-------------+--------+
+ | Animal || Description | Price |
+ +========++=============+========+
+ | Gnu || stuffed | 92.59 |
+ | Emu || stuffed | 33.33 |
+ +--------++-------------+--------+
+
+=item Houston
+
+ +--------++-------------+--------+
+ | Animal || Description | Price |
+ +========++=============+========+
+ | Gnu || stuffed | 92.59 |
+ +--------++-------------+--------+
+ | Emu || stuffed | 33.33 |
+ +--------++-------------+--------+
+
+=back
+
+Except for C<plain>, headers are printed in bold font.
=head1 REQUIRES
The themes defined in this module require no additional LaTeX packages.
+
+=head1 NOTES
+
+These are the classic themes you know from the famous books and tutorials.
+However, they have flaws. Read the C<booktabs> documentation for a discussion
+of this.
+
+The C<plain> theme might be useful in combination with the I<ltpretty> script.
=head1 SEE ALSO
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Modern.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Modern.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Modern.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Modern.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
sub _definition {
my $themes = {
@@ -20,7 +20,7 @@
'Muenchen' => {
'HEADER_FONT_STYLE' => 'bf',
'STUB_ALIGN' => 'l',
- 'DEFINE_COLORS' => '\definecolor{latexttbl}{RGB}{78,130,190}',
+ 'DEFINE_COLORS' => '\definecolor{latextbl}{RGB}{78,130,190}',
'CAPTION_FONT_STYLE' => 'bf',
'DATA_BG_COLOR_EVEN' => 'latextbl!20',
'VERTICAL_RULES' => [ 0, 0, 0 ],
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/ThemeI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/ThemeI.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/ThemeI.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/ThemeI.pm Wed Oct 27 07:23:41 2010
@@ -5,7 +5,7 @@
use Moose::Role;
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
requires '_definition';
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Ctable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Ctable.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Ctable.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Ctable.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
my $template = <<'EOT'
{[% DEFINE_COLORS_CODE %][% IF FONTSIZE %]\[% FONTSIZE %]
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Longtable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Longtable.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Longtable.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Longtable.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
my $template = <<'EOT'
{
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Std.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Std.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Std.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Std.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
my $template = <<'EOT'
[%IF CONTINUED %]\addtocounter{table}{-1}[% END %][% DEFINE_COLORS_CODE %][% IF ENVIRONMENT %]\begin{[% IF SIDEWAYS %]sidewaystable[% ELSE %][% ENVIRONMENT %][% END %][% IF STAR %]*[% END %]}[% IF POSITION %][[% POSITION %]][% END %]
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm Wed Oct 27 07:23:41 2010
@@ -6,7 +6,7 @@
use Moose::Role;
use Template;
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
use Carp;
@@ -261,10 +261,10 @@
=head1 DESCRIPTION
This is the type interface (or L<Moose> role), that all type objects must use.
-L<LaTeX::Table> delegates the boring work of building the LaTeX code to type
+L<LaTeX::Table> delegates the LaTeX code generation to type
objects. It stores all information we have in easy to use L<"TEMPLATE
-VARIABLES">. L<LaTeX::Table> ships with very flexible templates, but you can
-also use the template variables defined here to build custom templates.
+VARIABLES">. L<LaTeX::Table> ships with very flexible templates, but it is
+possible to use the template variables defined here to build custom templates.
=head1 INTERFACE
Modified: trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Xtab.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Xtab.pm?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Xtab.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Xtab.pm Wed Oct 27 07:23:41 2010
@@ -3,7 +3,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.5');
+use version; our $VERSION = qv('1.0.6');
my $template = <<'EOT'
{
Modified: trunk/liblatex-table-perl/t/10.table-ctable.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/t/10.table-ctable.t?rev=64293&op=diff
==============================================================================
--- trunk/liblatex-table-perl/t/10.table-ctable.t (original)
+++ trunk/liblatex-table-perl/t/10.table-ctable.t Wed Oct 27 07:23:41 2010
@@ -173,9 +173,35 @@
}
);
+$table->set_eor('\\\\%');
+
$expected_output =<<'EOT'
{
\ctable[center,
+]{l>{\ttfamily}l}{}{
+\toprule
+\textbf{Website} & \multicolumn{1}{c}{\textbf{URL}} \\%
+\midrule
+Slashdot & http://www.slashdot.org \\%
+Perlmonks & http://www.perlmonks.org \\%
+Google & http://www.google.com \\%
+\bottomrule
+}
+}
+EOT
+;
+
+$output = $table->generate_string();
+is_deeply([ split("\n",$output) ], [split("\n",$expected_output)],
+ 'uses _COL_X not specified');
+
+$table->set_continued(1);
+$table->set_eor('\\\\');
+
+$expected_output =<<'EOT'
+{
+\ctable[center,
+continued = {(continued)},
]{l>{\ttfamily}l}{}{
\toprule
\textbf{Website} & \multicolumn{1}{c}{\textbf{URL}} \\
@@ -191,28 +217,5 @@
$output = $table->generate_string();
is_deeply([ split("\n",$output) ], [split("\n",$expected_output)],
- 'uses _COL_X not specified');
-
-$table->set_continued(1);
-
-$expected_output =<<'EOT'
-{
-\ctable[center,
-continued = {(continued)},
-]{l>{\ttfamily}l}{}{
-\toprule
-\textbf{Website} & \multicolumn{1}{c}{\textbf{URL}} \\
-\midrule
-Slashdot & http://www.slashdot.org \\
-Perlmonks & http://www.perlmonks.org \\
-Google & http://www.google.com \\
-\bottomrule
-}
-}
-EOT
-;
-
-$output = $table->generate_string();
-is_deeply([ split("\n",$output) ], [split("\n",$expected_output)],
'continued');
More information about the Pkg-perl-cvs-commits
mailing list