r60468 - in /trunk/liblatex-table-perl: ./ bin/ debian/ debian/patches/ 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 06:03:56 UTC 2010
Author: ansgar-guest
Date: Thu Jul 22 06:03:28 2010
New Revision: 60468
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=60468
Log:
WAITS-FOR: libmoosex-followpbp-perl
* New upstream release.
+ Use MooseX::FollowPBP instead of Moose::Policy::FollowPBP.
(Closes: #589824)
* Use Build.PL.
* Make (build-)dep on perl unversioned as stable has 5.10 already.
* Add myself to Uploaders.
Removed:
trunk/liblatex-table-perl/debian/patches/
Modified:
trunk/liblatex-table-perl/Build.PL
trunk/liblatex-table-perl/Changes
trunk/liblatex-table-perl/META.yml
trunk/liblatex-table-perl/Makefile.PL
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/debian/control
trunk/liblatex-table-perl/debian/rules
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/40.miscprivates.t
trunk/liblatex-table-perl/t/perlcriticrc
Modified: trunk/liblatex-table-perl/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/Build.PL?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/Build.PL (original)
+++ trunk/liblatex-table-perl/Build.PL Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/Changes?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/Changes (original)
+++ trunk/liblatex-table-perl/Changes Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/META.yml?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/META.yml (original)
+++ trunk/liblatex-table-perl/META.yml Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/Makefile.PL?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/Makefile.PL (original)
+++ trunk/liblatex-table-perl/Makefile.PL Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/README?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/README (original)
+++ trunk/liblatex-table-perl/README Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/bin/csv2pdf
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/bin/csv2pdf?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/bin/csv2pdf (original)
+++ trunk/liblatex-table-perl/bin/csv2pdf Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/bin/ltpretty
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/bin/ltpretty?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/bin/ltpretty (original)
+++ trunk/liblatex-table-perl/bin/ltpretty Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/changelog?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/debian/changelog (original)
+++ trunk/liblatex-table-perl/debian/changelog Thu Jul 22 06:03:28 2010
@@ -1,18 +1,19 @@
-liblatex-table-perl (1.0.1-2) UNRELEASED; urgency=low
+liblatex-table-perl (1.0.2-1) UNRELEASED; urgency=low
- NOTE: MooseX::FollowPBP is not in Debian (yet), but we want to remove
- libmoose-policy-perl from the archive (see #583460).
+ WAITS-FOR: libmoosex-followpbp-perl
- * Use MooseX::FollowPBP instead of Moose::Policy::FollowPBP.
- + new patch: use-MooseX-FollowPBP.patch
+ * New upstream release.
+ + Use MooseX::FollowPBP instead of Moose::Policy::FollowPBP.
+ (Closes: #589824)
+ * Use Build.PL.
* Use source format 3.0 (quilt).
* No longer run author tests.
+ Remove build-dep on libtest-perl-critic-perl.
- + Lower build-dep on debhelper to >= 7.
- * Make build-dep on perl unversioned as stable has 5.10 already.
+ * Make (build-)dep on perl unversioned as stable has 5.10 already.
* Bump Standards-Version to 3.9.0 (no changes).
+ * Add myself to Uploaders.
- -- Ansgar Burchardt <ansgar at 43-1.org> Mon, 19 Jul 2010 13:48:31 +0900
+ -- Ansgar Burchardt <ansgar at 43-1.org> Thu, 22 Jul 2010 14:55:34 +0900
liblatex-table-perl (1.0.1-1) unstable; urgency=low
Modified: trunk/liblatex-table-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/control?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/debian/control (original)
+++ trunk/liblatex-table-perl/debian/control Thu Jul 22 06:03:28 2010
@@ -1,13 +1,14 @@
Source: liblatex-table-perl
Section: perl
Priority: optional
-Build-Depends: debhelper (>= 7)
+Build-Depends: debhelper (>= 7.3.7~)
Build-Depends-Indep: libmoose-perl (>= 0.76), libmoosex-followpbp-perl, libtemplate-perl,
libtest-nowarnings-perl, libtest-pod-coverage-perl (>= 1.04),
libtest-pod-perl (>= 1.14), perl
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Salvatore Bonaccorso <salvatore.bonaccorso at gmail.com>,
- gregor herrmann <gregoa at debian.org>
+ gregor herrmann <gregoa at debian.org>,
+ Ansgar Burchardt <ansgar at 43-1.org>
Standards-Version: 3.9.0
Homepage: http://search.cpan.org/dist/LaTeX-Table/
Vcs-Svn: svn://svn.debian.org/pkg-perl/trunk/liblatex-table-perl/
@@ -18,7 +19,7 @@
Depends: ${misc:Depends}, ${perl:Depends}, liblatex-driver-perl,
liblatex-encode-perl, libmoose-perl (>= 0.76), libmoosex-followpbp-perl,
libnumber-format-perl, libreadonly-perl, libtemplate-perl, libtext-csv-perl,
- perl (>= 5.10.1) | libautodie-perl, perl (>= 5.10.0)
+ perl (>= 5.10.1) | libautodie-perl, perl
Suggests: texlive-latex-extra, texlive-latex3
Description: Perl extension for the automatic generation of LaTeX tables
LaTeX::Table is a Perl extension for the automatic generation of LaTeX tables
Modified: trunk/liblatex-table-perl/debian/rules
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/debian/rules?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/debian/rules (original)
+++ trunk/liblatex-table-perl/debian/rules Thu Jul 22 06:03:28 2010
@@ -1,4 +1,4 @@
#!/usr/bin/make -f
%:
- dh $@
+ dh $@ --buildsystem=perl_build
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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Beamer.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Beamer.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Booktabs.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Booktabs.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Classic.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Classic.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Modern.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/Modern.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/ThemeI.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Themes/ThemeI.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Ctable.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Ctable.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Longtable.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Longtable.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Std.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Std.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/TypeI.pm Thu Jul 22 06:03:28 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: 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=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Xtab.pm (original)
+++ trunk/liblatex-table-perl/lib/LaTeX/Table/Types/Xtab.pm Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/t/40.miscprivates.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/t/40.miscprivates.t?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/t/40.miscprivates.t (original)
+++ trunk/liblatex-table-perl/t/40.miscprivates.t Thu Jul 22 06:03:28 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: trunk/liblatex-table-perl/t/perlcriticrc
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/liblatex-table-perl/t/perlcriticrc?rev=60468&op=diff
==============================================================================
--- trunk/liblatex-table-perl/t/perlcriticrc (original)
+++ trunk/liblatex-table-perl/t/perlcriticrc Thu Jul 22 06:03:28 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