DBD-PO
view release on metacpan or search on metacpan
: (
Carp => 0, # perl dist
English => 0, # perl dist
Socket => 0, # perl dist
Storable => 0, # perl dist
)
},
build_requires => {
'Test::NoWarnings' => 0,
'Test::Exception' => 0,
'Test::Differences' => 0,
Encode => 0,
'File::Find' => 0,
$is_ppm
? (
'Test::Simple' => 0,
)
: (
'Test::More' => 0, # dist Test-Simple
Cwd => 0, # perl dist
charnames => 0, # perl dist
- API changed for read header "msgstr".
- API changed to connect parameter "po_charset"
- Do not use special characters in comments.
There is no quoting at the moment.
- Do not use "... = $dbh->quote(...);".
The bug is not fixed.
- Fixed bug of quote "msgid" and all the different "msgstr"s.
0.06 Wed Jul 30 22:00:00 2008
- sixth developer test version
- change tests: change use Test::Differences in eval block to require
- add example
0.05 Tue Jul 29 15:00:00 2008
- fifth developer test version
- fixed any problems with charset and eol
- changed parameter po_charset to charset
- some Kwalitte
0.04 Sun Jul 27 12:00:00 2008
- fourth developer test version
author:
- 'Steffen Winkler <steffenw at cpan.org>'
abstract: 'DBD::PO - DBI driver for PO files'
license: perl
resources:
license: http://dev.perl.org/licenses/
build_requires:
Cwd: 0
Encode: 0
File::Find: 0
Test::Differences: 0
Test::Exception: 0
Test::More: 0
Test::NoWarnings: 0
charnames: 0
requires:
Carp: 0
DBI: 0
English: 0
Params::Validate: 0
SQL::Statement: 0
Makefile.PL view on Meta::CPAN
'DBI' => 0,
'parent' => 0,
'Test::Exception' => 0,
'English' => 0,
'charnames' => 0,
'version' => 0,
'SQL::Statement' => 0,
'Carp' => 0,
'Test::More' => 0,
'Set::Scalar' => '1.25',
'Test::Differences' => 0,
'Params::Validate' => 0,
'Cwd' => 0
}
)
;
t/01_Locale-PO/01_quote.t view on Meta::CPAN
#!perl -T
use strict;
use warnings;
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw($FILE_LOCALE_PO_01 $DROP_TABLE);
use Test::More tests => 13 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('IO::File');
require_ok('DBD::PO::Locale::PO');
}
my $test_string = join "\n", (
(
map {
join q{}, map { chr $_ } 8 * $_ .. 8 * $_ + 7;
t/01_Locale-PO/02_without_emty_lines.t view on Meta::CPAN
#!perl -T
use strict;
use warnings;
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw($FILE_LOCALE_PO_02 $DROP_TABLE);
use Test::More tests => 17 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBD::PO::Locale::PO');
}
# write po file
{
open my $file, '> :encoding(utf-8)', $FILE_LOCALE_PO_02;
isnt(
$OS_ERROR,
t/02_Text-PO/01_quote.t view on Meta::CPAN
#!perl -T
use strict;
use warnings;
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw($FILE_TEXT_PO $DROP_TABLE);
use Test::More tests => 7 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('IO::File');
require_ok('DBD::PO::Text::PO');
}
my $test_string = join "\n", (
(
map {
join q{}, map { chr $_ } 8 * $_ .. 8 * $_ + 7;
t/03_DBD-PO/01_create_table.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $EOL $SEPARATOR $TRACE
trace_file_name
$TABLE_0X
$FILE_0X
);
use Test::More tests => 6 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
}
my $dbh = DBI->connect(
"dbi:PO:f_dir=$PATH;po_eol=$EOL;po_separator=$SEPARATOR;po_charset=utf-8",
undef,
undef,
{
t/03_DBD-PO/02_fill_table.t view on Meta::CPAN
use warnings;
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $SEPARATOR $EOL
trace_file_name $TABLE_0X $FILE_0X
);
use Test::More tests => 15 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
require_ok('DBD::PO'); DBD::PO->init(':plural');
}
my ($dbh, $sth);
# connext
{
t/03_DBD-PO/03_check_table.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $SEPARATOR $EOL
trace_file_name
$TABLE_0X $FILE_0X
);
use Test::More tests => 8 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
}
my $dbh;
# connext
{
$dbh = DBI->connect(
t/03_DBD-PO/04_change_table.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $EOL
trace_file_name
$TABLE_0X $FILE_0X
);
use Test::More tests => 8 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
require_ok('DBD::PO'); DBD::PO->init(':plural');
}
my $dbh;
# connext
{
t/03_DBD-PO/05_change_flags.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $SEPARATOR $EOL
trace_file_name
$TABLE_0X $FILE_0X
);
use Test::More tests => 43 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
require_ok('DBD::PO'); DBD::PO->init(qw(:plural c-format php-format));
}
my $dbh;
# connext
{
t/03_DBD-PO/06_obsolete.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $SEPARATOR $EOL
trace_file_name
$TABLE_0X $FILE_0X
);
use Test::More tests => 21 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
require_ok('DBD::PO'); DBD::PO->init(':plural');
}
my $dbh;
# connext
{
t/03_DBD-PO/08_previous.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $SEPARATOR $EOL
trace_file_name
$TABLE_0X $FILE_0X
);
use Test::More tests => 37 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
require_ok('DBD::PO'); DBD::PO->init(qw(:plural :previous));
}
my $dbh;
# connext
{
t/03_DBD-PO/13_charsets.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$TRACE $PATH $DROP_TABLE
trace_file_name
$TABLE_13 $FILE_13
);
use Test::More tests => 27 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
require_ok('charnames');
charnames->import(':full');
require_ok('Encode');
Encode->import('encode');
}
my $trace_file;
t/03_DBD-PO/14_quote.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $DROP_TABLE
trace_file_name
$TABLE_14 $FILE_14
);
use Test::More tests => 17 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
require_ok('DBD::PO::Text::PO');
}
my $test_string = join "\n", (
(
map {
join q{}, map { chr $_ } 8 * $_ .. 8 * $_ + 7;
t/03_DBD-PO/15_header_msgstr_hash.t view on Meta::CPAN
use Carp qw(croak);
use English qw(-no_match_vars $OS_ERROR $INPUT_RECORD_SEPARATOR);
use Test::DBD::PO::Defaults qw(
$PATH $TRACE $DROP_TABLE
trace_file_name
$TABLE_15 $FILE_15
);
use Test::More tests => 40 + 1;
use Test::NoWarnings;
use Test::Differences;
BEGIN {
require_ok('DBI');
}
my %test_data = (
'Project-Id-Version' => [
[qw( Project-Id-Version )],
[qw( MyProject )],
],
( run in 1.921 second using v1.01-cache-2.11-cpan-39bf76dae61 )