r60464 - in /branches/upstream/liblatex-table-perl/current: ./ bin/ lib/LaTeX/ lib/LaTeX/Table/Themes/ lib/LaTeX/Table/Types/ t/
ansgar-guest at users.alioth.debian.org
ansgar-guest at users.alioth.debian.org
Thu Jul 22 05:54:24 UTC 2010
Author: ansgar-guest
Date: Thu Jul 22 05:54:07 2010
New Revision: 60464
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60464
Log:
[svn-upgrade] new version liblatex-table-perl (1.0.2)
Modified:
branches/upstream/liblatex-table-perl/current/Build.PL
branches/upstream/liblatex-table-perl/current/Changes
branches/upstream/liblatex-table-perl/current/META.yml
branches/upstream/liblatex-table-perl/current/Makefile.PL
branches/upstream/liblatex-table-perl/current/README
branches/upstream/liblatex-table-perl/current/bin/csv2pdf
branches/upstream/liblatex-table-perl/current/bin/ltpretty
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Beamer.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Booktabs.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Classic.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Modern.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/ThemeI.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Ctable.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Longtable.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Std.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/TypeI.pm
branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Xtab.pm
branches/upstream/liblatex-table-perl/current/t/40.miscprivates.t
branches/upstream/liblatex-table-perl/current/t/perlcriticrc
Modified: branches/upstream/liblatex-table-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/Build.PL?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/Build.PL (original)
+++ branches/upstream/liblatex-table-perl/current/Build.PL Thu Jul 22 05:54:07 2010
@@ -12,7 +12,7 @@
'perl' => '5.8.0',
'English' => 0,
'Moose' => 0.76,
- 'Moose::Policy::FollowPBP' => 0,
+ 'MooseX::FollowPBP' => 0,
'Module::Pluggable' => 0,
'Scalar::Util' => 0,
'Carp' => 0,
Modified: branches/upstream/liblatex-table-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/Changes?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/Changes (original)
+++ branches/upstream/liblatex-table-perl/current/Changes Thu Jul 22 05:54:07 2010
@@ -1,9 +1,12 @@
Revision history for LaTeX-Table
-
-1.0.1 Tue Sep 8 11:00:00 2009
+1.0.2 Wed Jul 21 21:08:00 2010
+ - Support for recent Class:MOP (patch from Ansgar, Thanks!!)
+
+1.0.1 Tue Mar 2 11:59:00 2010
- POD: * CPAN email address
* better example for ltpretty
+ * better explanation how to use a theme module
- Bugfixes: * multicolumn shortcut for columns > 9
* ltpretty removed all slashes, not just the trailing ones
* ltpretty removes now leading and trailing spaces in
Modified: branches/upstream/liblatex-table-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/META.yml?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/META.yml (original)
+++ branches/upstream/liblatex-table-perl/current/META.yml Thu Jul 22 05:54:07 2010
@@ -1,6 +1,6 @@
---
name: LaTeX-Table
-version: v1.0.1
+version: v1.0.2
author:
- 'Markus Riester <limaone at cpan.org>'
abstract: Perl extension for the automatic generation of LaTeX tables.
@@ -17,7 +17,7 @@
English: 0
Module::Pluggable: 0
Moose: 0.76
- Moose::Policy::FollowPBP: 0
+ MooseX::FollowPBP: 0
Scalar::Util: 0
Template: 0
perl: v5.8.0
@@ -34,37 +34,37 @@
provides:
LaTeX::Table:
file: lib/LaTeX/Table.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Themes::Beamer:
file: lib/LaTeX/Table/Themes/Beamer.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Themes::Booktabs:
file: lib/LaTeX/Table/Themes/Booktabs.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Themes::Classic:
file: lib/LaTeX/Table/Themes/Classic.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Themes::Modern:
file: lib/LaTeX/Table/Themes/Modern.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Themes::ThemeI:
file: lib/LaTeX/Table/Themes/ThemeI.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Types::Ctable:
file: lib/LaTeX/Table/Types/Ctable.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Types::Longtable:
file: lib/LaTeX/Table/Types/Longtable.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Types::Std:
file: lib/LaTeX/Table/Types/Std.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Types::TypeI:
file: lib/LaTeX/Table/Types/TypeI.pm
- version: v1.0.1
+ version: v1.0.2
LaTeX::Table::Types::Xtab:
file: lib/LaTeX/Table/Types/Xtab.pm
- version: v1.0.1
+ version: v1.0.2
generated_by: Module::Build version 0.35
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
Modified: branches/upstream/liblatex-table-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/Makefile.PL?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/Makefile.PL (original)
+++ branches/upstream/liblatex-table-perl/current/Makefile.PL Thu Jul 22 05:54:07 2010
@@ -18,7 +18,7 @@
'File::Spec' => 0,
'English' => 0,
'Moose' => 0.76,
- 'Moose::Policy::FollowPBP' => 0,
+ 'MooseX::FollowPBP' => 0,
'Module::Pluggable' => 0,
'Carp' => 0,
'Scalar::Util' => 0,
Modified: branches/upstream/liblatex-table-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/README?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/README (original)
+++ branches/upstream/liblatex-table-perl/current/README Thu Jul 22 05:54:07 2010
@@ -1,4 +1,4 @@
-LaTeX-Table version 1.0.1
+LaTeX-Table version 1.0.2
This module supports multipage tables via the xtab and the longtable package.
For publication quality tables it utilizes the booktabs package. It also
Modified: branches/upstream/liblatex-table-perl/current/bin/csv2pdf
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/bin/csv2pdf?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/bin/csv2pdf (original)
+++ branches/upstream/liblatex-table-perl/current/bin/csv2pdf Thu Jul 22 05:54:07 2010
@@ -2,8 +2,8 @@
#############################################################################
# $Author: markus $
-# $Date: 2009-09-07 17:06:22 +0200 (Mon, 07 Sep 2009) $
-# $Revision: 1836 $
+# $Date: 2010-03-02 17:43:57 +0100 (Tue, 02 Mar 2010) $
+# $Revision: 1956 $
#############################################################################
use strict;
@@ -27,7 +27,7 @@
use LaTeX::Encode;
use LaTeX::Driver;
-use version; our $VERSION = qv('1.0.0');
+use version; our $VERSION = qv('1.0.1');
my ( $infile, $outfile, $outfiletex, $help, $man, $version );
@@ -268,11 +268,11 @@
=head1 AUTHOR
-Markus Riester C<< <mriester at gmx.de> >>
+Markus Riester C<< <limaone at cpan.org> >>
=head1 LICENSE AND COPYRIGHT
-Copyright (c) 2006-2009, Markus Riester C<< <mriester at gmx.de> >>.
+Copyright (c) 2006-2010, Markus Riester C<< <limaone at cpan.org> >>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
Modified: branches/upstream/liblatex-table-perl/current/bin/ltpretty
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/bin/ltpretty?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/bin/ltpretty (original)
+++ branches/upstream/liblatex-table-perl/current/bin/ltpretty Thu Jul 22 05:54:07 2010
@@ -2,8 +2,8 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-03-02 17:43:57 +0100 (Tue, 02 Mar 2010) $
+# $Revision: 1956 $
#############################################################################
use strict;
@@ -127,8 +127,6 @@
=back
=head1 OUTPUT
-
-=over
% theme=Meyrin;label=test;position=htb
% Item:2c & Price
@@ -154,7 +152,6 @@
\label{test}
\end{table}
-=back
=head1 CONFIGURATION AND ENVIRONMENT
@@ -177,11 +174,11 @@
=head1 AUTHOR
-Markus Riester C<< <mriester at gmx.de> >>
+Markus Riester C<< <limaone at cpan.org> >>
=head1 LICENSE AND COPYRIGHT
-Copyright (c) 2006-2010, Markus Riester C<< <mriester at gmx.de> >>.
+Copyright (c) 2006-2010, Markus Riester C<< <limaone at cpan.org> >>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself. See L<perlartistic>.
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table;
@@ -9,11 +9,11 @@
use strict;
use warnings;
-use Moose::Policy 'Moose::Policy::FollowPBP';
use Moose;
use Moose::Util::TypeConstraints;
-
-use version; our $VERSION = qv('1.0.1');
+use MooseX::FollowPBP;
+
+use version; our $VERSION = qv('1.0.2');
use LaTeX::Table::Types::Std;
use LaTeX::Table::Types::Xtab;
@@ -122,9 +122,9 @@
= 'LaTeX::Table::Types::'
. uc( substr $self->get_type, 0, 1 )
. substr $self->get_type, 1;
- $self->set__type_obj( $type_obj_name->new( _table_obj => $self ) );
-
- return $self->get__type_obj->generate_latex_code();
+ $self->_set_type_obj( $type_obj_name->new( _table_obj => $self ) );
+
+ return $self->_get_type_obj->generate_latex_code();
}
sub generate {
@@ -280,7 +280,7 @@
}
push @summary, $type_of_this_col;
}
- $self->set__data_summary( \@summary );
+ $self->_set_data_summary( \@summary );
return;
}
@@ -302,7 +302,7 @@
my @code
= $is_header
- ? ( $self->_get_hline_code( $self->get__RULE_TOP_ID ) )
+ ? ( $self->_get_hline_code( $self->_get_RULE_TOP_ID ) )
: ();
ROW:
for my $row ( @{$data_ref} ) {
@@ -312,7 +312,7 @@
# empty rows produce a horizontal line
if ( !@cols ) {
push @code,
- $self->_get_hline_code( $self->get__RULE_INNER_ID, 1 );
+ $self->_get_hline_code( $self->_get_RULE_INNER_ID, 1 );
next ROW;
}
@@ -351,16 +351,16 @@
# do we have to draw a horizontal line?
if ( $i == scalar @{$data_ref} ) {
- push @code, $self->_get_hline_code( $self->get__RULE_BOTTOM_ID );
+ push @code, $self->_get_hline_code( $self->_get_RULE_BOTTOM_ID );
}
else {
- push @code, $self->_get_hline_code( $self->get__RULE_INNER_ID );
+ push @code, $self->_get_hline_code( $self->_get_RULE_INNER_ID );
}
}
# without header, just draw the topline, not this midline
if ( $is_header && $i ) {
- push @code, $self->_get_hline_code( $self->get__RULE_MID_ID );
+ push @code, $self->_get_hline_code( $self->_get_RULE_MID_ID );
}
return $self->_align_code( \@code );
@@ -405,7 +405,7 @@
{
$line = $theme->{RULES_CMD}->[$id];
}
- if ( $id == $self->get__RULE_BOTTOM_ID ) {
+ if ( $id == $self->_get_RULE_BOTTOM_ID ) {
$id = 0;
}
@@ -477,7 +477,7 @@
)
);
if ( !defined $col_def->{cols} ) {
- my @summary = @{ $self->get__data_summary() };
+ my @summary = @{ $self->_get_data_summary() };
$col_def->{cols} = 1;
$col_def->{align}
= $self->get_coldef_strategy->{ $summary[$col_id]
@@ -587,7 +587,7 @@
sub _get_coldef_code {
my ( $self, $data ) = @_;
- my @cols = @{ $self->get__data_summary() };
+ my @cols = @{ $self->_get_data_summary() };
my $vlines = $self->get_theme_settings->{'VERTICAL_RULES'};
my $v0 = q{|} x $vlines->[0];
@@ -685,10 +685,10 @@
'only one allowed.' );
}
if ( $self->has_center || $self->has_right || $self->has_left ) {
- $self->set__default_align(0);
+ $self->_set_default_align(0);
}
else {
- $self->set__default_align(1);
+ $self->_set_default_align(1);
}
if ( $self->get_maincaption && $self->get_shortcaption ) {
@@ -726,7 +726,7 @@
=head1 VERSION
-This document describes LaTeX::Table version 1.0.0
+This document describes LaTeX::Table version 1.0.2
=head1 SYNOPSIS
@@ -1484,6 +1484,8 @@
=over
+=item ANSGAR for some great patches.
+
=item David Carlisle for the C<colortbl>, C<longtable>, C<ltxtable>,
C<tabularx> and C<tabulary> LaTeX packages.
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Beamer.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Beamer.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Beamer.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Beamer.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Themes::Beamer;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
sub _definition {
my $themes = {
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Booktabs.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Booktabs.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Booktabs.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Booktabs.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Themes::Booktabs;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
sub _definition {
my $themes = {
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Classic.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Classic.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Classic.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Classic.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Themes::Classic;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
sub _definition {
my $themes = {
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Modern.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Modern.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Modern.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/Modern.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Themes::Modern;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Themes::ThemeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
sub _definition {
my $themes = {
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/ThemeI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/ThemeI.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/ThemeI.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Themes/ThemeI.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 12:10:35 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1949 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Themes::ThemeI;
@@ -11,7 +11,7 @@
use Moose::Role;
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
requires '_definition';
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Ctable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Ctable.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Ctable.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Ctable.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Types::Ctable;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
my $template = <<'EOT'
{[% DEFINE_COLORS_CODE %][% IF FONTSIZE %]\[% FONTSIZE %]
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Longtable.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Longtable.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Longtable.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Longtable.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Types::Longtable;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
my $template = <<'EOT'
{
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Std.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Std.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Std.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Std.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Types::Std;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
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: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/TypeI.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/TypeI.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/TypeI.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/TypeI.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Types::TypeI;
@@ -12,13 +12,14 @@
use Moose::Role;
use Template;
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
use Carp;
has '_table_obj' => ( is => 'rw', isa => 'LaTeX::Table', required => 1 );
-has '_tabular_environment' => ( is => 'ro', required => 1 );
-has '_template' => ( is => 'ro', required => 1 );
+has '_tabular_environment' => ( is => 'ro', required => 1 );
+has '_template' => ( is => 'ro', required => 1 );
+has '_requires_environment' => ( is => 'ro', default => 0, required => 1 );
sub generate_latex_code {
my ($self) = @_;
@@ -31,7 +32,7 @@
}
my $template_vars = {
- 'CENTER' => $tbl->get__default_align ? 1 : $tbl->get_center,
+ 'CENTER' => $tbl->_get_default_align ? 1 : $tbl->get_center,
'LEFT' => $tbl->get_left(),
'RIGHT' => $tbl->get_right(),
'ENVIRONMENT' => $tbl->get_environment,
@@ -89,9 +90,9 @@
? $tbl->get_theme_settings->{DEFINE_COLORS} . "\n"
: q{}
),
- 'LT_NUM_COLUMNS' => scalar( @{ $tbl->get__data_summary() } ),
+ 'LT_NUM_COLUMNS' => scalar( @{ $tbl->_get_data_summary() } ),
'LT_BOTTOM_RULE_CODE' =>
- $tbl->_get_hline_code( $tbl->get__RULE_BOTTOM_ID ),
+ $tbl->_get_hline_code( $tbl->_get_RULE_BOTTOM_ID ),
};
my $template_obj = Template->new();
@@ -105,6 +106,20 @@
$template_obj->process( \$template, $template_vars, \$template_output )
or croak $template_obj->error();
return $template_output;
+}
+
+sub _check_options {
+ my ($self) = @_;
+ my $tbl = $self->_table_obj;
+ if ( $self->_requires_environment() && !$self->get_environment ) {
+ $self->_invalid_option_usage( 'environment',
+ $tbl->get_type . ' requires an environment' );
+ }
+ if ( $self->_supports_position && $self->get_position ) {
+ $self->_invalid_option_usage( 'position',
+ $tbl->get_type . ' does not support position' );
+ }
+ return;
}
sub _get_caption_command {
@@ -184,9 +199,9 @@
my $v0 = q{|} x $tbl->get_theme_settings->{'VERTICAL_RULES'}->[0];
return
- $tbl->_get_hline_code( $tbl->get__RULE_MID_ID )
+ $tbl->_get_hline_code( $tbl->_get_RULE_MID_ID )
. '\multicolumn{'
- . @{ $tbl->get__data_summary() }
+ . @{ $tbl->_get_data_summary() }
. "}{${v0}r$v0}{{"
. $tbl->get_tabletailmsg
. "}} \\\\\n";
Modified: branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Xtab.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Xtab.pm?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Xtab.pm (original)
+++ branches/upstream/liblatex-table-perl/current/lib/LaTeX/Table/Types/Xtab.pm Thu Jul 22 05:54:07 2010
@@ -1,7 +1,7 @@
#############################################################################
# $Author: markus $
-# $Date: 2010-03-02 11:55:05 +0100 (Tue, 02 Mar 2010) $
-# $Revision: 1948 $
+# $Date: 2010-07-22 03:01:10 +0200 (Thu, 22 Jul 2010) $
+# $Revision: 2076 $
#############################################################################
package LaTeX::Table::Types::Xtab;
@@ -9,7 +9,7 @@
with 'LaTeX::Table::Types::TypeI';
-use version; our $VERSION = qv('1.0.1');
+use version; our $VERSION = qv('1.0.2');
my $template = <<'EOT'
{
Modified: branches/upstream/liblatex-table-perl/current/t/40.miscprivates.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/t/40.miscprivates.t?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/t/40.miscprivates.t (original)
+++ branches/upstream/liblatex-table-perl/current/t/40.miscprivates.t Thu Jul 22 05:54:07 2010
@@ -14,15 +14,15 @@
my $test_data = [ [ 1, 2, 4], [ 2, 3 ] ];
$table->_calc_data_summary($test_data);
-my $summary = $table->get__data_summary();
+my $summary = $table->_get_data_summary();
is_deeply($summary, ['NUMBER','NUMBER','NUMBER'], 'all integers');
$test_data = [ [ 'a', 2, 4], [ 'b', 3 ] ];
$table->_calc_data_summary($test_data);
-$summary = $table->get__data_summary();
+$summary = $table->_get_data_summary();
is_deeply($summary, ['DEFAULT','NUMBER','NUMBER'], 'not all integers');
$test_data = [ [ 'a', 2, ], [ '1', 3 ] ];
$table->_calc_data_summary($test_data);
-$summary = $table->get__data_summary();
+$summary = $table->_get_data_summary();
is_deeply($summary, ['DEFAULT','NUMBER'], 'not all integers');
Modified: branches/upstream/liblatex-table-perl/current/t/perlcriticrc
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/liblatex-table-perl/current/t/perlcriticrc?rev=60464&op=diff
==============================================================================
--- branches/upstream/liblatex-table-perl/current/t/perlcriticrc (original)
+++ branches/upstream/liblatex-table-perl/current/t/perlcriticrc Thu Jul 22 05:54:07 2010
@@ -15,4 +15,4 @@
perltidyrc = t/perltidyrc
[Documentation::PodSpelling]
-stop_words = Riester LaTeX xtabular multi longtable ctable sc tt undef namespace Meyrin emacs ltpretty CSV csv PDF pdf STDIN STDOUT maincaption resized extrarowheight manpage afterwards CTAN API getters latextable tex xtab multirow textwidth htb Monospace scriptsize footnotesize mpxtabular lrcr resizebox resize MULTI tabletail multicolumn tabletailmsg lastfoot MULTICOLUMNS Multicolumns coldef Carlisle Wybo Dekker ANDREWF Lapo Mori
+stop_words = Riester LaTeX xtabular multi longtable ctable sc tt undef namespace Meyrin emacs ltpretty CSV csv PDF pdf STDIN STDOUT maincaption resized extrarowheight manpage afterwards CTAN API getters latextable tex xtab multirow textwidth htb Monospace scriptsize footnotesize mpxtabular lrcr resizebox resize MULTI tabletail multicolumn tabletailmsg lastfoot MULTICOLUMNS Multicolumns coldef Carlisle Wybo Dekker ANDREWF Lapo Mori ANSGAR
More information about the Pkg-perl-cvs-commits
mailing list