@@ -12,8 +12,6 @@ use utf8;
use builder::MyBuilder;
use File::Basename;
use File::Spec;
-use CPAN::Meta;
-use CPAN::Meta::Prereqs;
my %args = (
license => 'perl',
@@ -25,12 +23,16 @@ my %args = (
name => 'DBIx-QueryLog',
module_name => 'DBIx::QueryLog',
- allow_pure_perl => 0,
+ allow_pureperl => 0,
script_files => [glob('script/*'), glob('bin/*')],
+ c_source => [qw()],
+ PL_files => {},
test_files => ((-d '.git' || $ENV{RELEASE_TESTING}) && -d 'xt') ? 't/ xt/' : 't/',
recursive_test_files => 1,
+
+
);
if (-d 'share') {
$args{share_dir} = 'share';
@@ -49,20 +51,15 @@ my $builder = builder::MyBuilder->subclass(
)->new(%args);
$builder->create_build_script();
-my $mbmeta = CPAN::Meta->load_file('MYMETA.json');
-my $meta = CPAN::Meta->load_file('META.json');
-my $prereqs_hash = CPAN::Meta::Prereqs->new(
- $meta->prereqs
-)->with_merged_prereqs(
- CPAN::Meta::Prereqs->new($mbmeta->prereqs)
-)->as_string_hash;
-my $mymeta = CPAN::Meta->new(
- {
- %{$meta->as_struct},
- prereqs => $prereqs_hash
- }
-);
-print "Merging cpanfile prereqs to MYMETA.yml\n";
-$mymeta->save('MYMETA.yml', { version => 1.4 });
-print "Merging cpanfile prereqs to MYMETA.json\n";
-$mymeta->save('MYMETA.json', { version => 2 });
+use File::Copy;
+
+print "cp META.json MYMETA.json\n";
+copy("META.json","MYMETA.json") or die "Copy failed(META.json): $!";
+
+if (-f 'META.yml') {
+ print "cp META.yml MYMETA.yml\n";
+ copy("META.yml","MYMETA.yml") or die "Copy failed(META.yml): $!";
+} else {
+ print "There is no META.yml... You may install this module from the repository...\n";
+}
+
@@ -1,5 +1,11 @@
Revision history for Perl extension DBIx::QueryLog
+0.39 2014-09-03T12:14:36Z
+ - requires 'Text::ASCIITable' (kamipo++)
+
+0.38 2014-01-17T09:00:16Z
+ - Fixed test (makamaka++)
+
0.37 2013-06-05T15:04:12Z
- Fixed test (syohex++)
@@ -4,8 +4,10 @@
"xaicron <xaicron {at} cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Minilla/v0.4.6",
- "license" : "perl_5",
+ "generated_by" : "Minilla/v2.1.1",
+ "license" : [
+ "perl_5"
+ ],
"meta-spec" : {
"url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
"version" : "2"
@@ -19,7 +21,8 @@
"share",
"eg",
"examples",
- "author"
+ "author",
+ "builder"
]
},
"prereqs" : {
@@ -30,15 +33,14 @@
},
"configure" : {
"requires" : {
- "CPAN::Meta" : "0",
- "CPAN::Meta::Prereqs" : "0",
"Module::Build" : "0.38"
}
},
"develop" : {
"requires" : {
"Test::CPAN::Meta" : "0",
- "Test::MinimumVersion" : "0.10108",
+ "Test::MinimumVersion::Fast" : "0.04",
+ "Test::PAUSE::Permissions" : "0.04",
"Test::Pod" : "1.41",
"Test::Spellunker" : "v0.2.7"
}
@@ -47,13 +49,13 @@
"recommends" : {
"DBD::Pg" : "0",
"DBD::SQLite" : "0",
- "DBD::mysql" : "0",
- "Text::ASCIITable" : "0"
+ "DBD::mysql" : "0"
},
"requires" : {
"DBI" : "0",
"Data::Dumper" : "0",
"Term::ANSIColor" : "0",
+ "Text::ASCIITable" : "0",
"Time::HiRes" : "0",
"perl" : "5.008001"
}
@@ -72,7 +74,7 @@
"provides" : {
"DBIx::QueryLog" : {
"file" : "lib/DBIx/QueryLog.pm",
- "version" : "0.37"
+ "version" : "0.39"
}
},
"release_status" : "stable",
@@ -86,14 +88,14 @@
"web" : "https://github.com/xaicron/p5-DBIx-QueryLog"
}
},
- "version" : "0.37",
+ "version" : "0.39",
"x_contributors" : [
"Yuki Ibe <yibe@yibe.org>",
- "Ryuta Kamizono <kamipo@gmail.com>",
"tokuhirom <tokuhirom@gmail.com>",
- "makamaka <makamaka.donzoko@gmail.com>",
"cho45 <cho45@lowreal.net>",
"Syohei YOSHIDA <syohex@gmail.com>",
+ "makamaka <makamaka.donzoko@gmail.com>",
+ "Ryuta Kamizono <kamipo@gmail.com>",
"Yuji Shimada <xaicron@gmail.com>"
]
}
@@ -3,19 +3,17 @@ abstract: 'Logging queries for DBI'
author:
- 'xaicron <xaicron {at} cpan.org>'
build_requires:
- ExtUtils::MakeMaker: 6.59
- Test::More: 0.96
- Test::Requires: 0
+ ExtUtils::MakeMaker: '6.59'
+ Test::More: '0.96'
+ Test::Requires: '0'
configure_requires:
- CPAN::Meta: 0
- CPAN::Meta::Prereqs: 0
- Module::Build: 0.38
+ Module::Build: '0.38'
dynamic_config: 0
-generated_by: 'Minilla/v0.4.6, CPAN::Meta::Converter version 2.131490'
+generated_by: 'Minilla/v2.1.1, CPAN::Meta::Converter version 2.142060'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+ version: '1.4'
name: DBIx-QueryLog
no_index:
directory:
@@ -26,31 +24,32 @@ no_index:
- eg
- examples
- author
+ - builder
provides:
DBIx::QueryLog:
file: lib/DBIx/QueryLog.pm
- version: 0.37
+ version: '0.39'
recommends:
- DBD::Pg: 0
- DBD::SQLite: 0
- DBD::mysql: 0
- Text::ASCIITable: 0
+ DBD::Pg: '0'
+ DBD::SQLite: '0'
+ DBD::mysql: '0'
requires:
- DBI: 0
- Data::Dumper: 0
- Term::ANSIColor: 0
- Time::HiRes: 0
- perl: 5.008001
+ DBI: '0'
+ Data::Dumper: '0'
+ Term::ANSIColor: '0'
+ Text::ASCIITable: '0'
+ Time::HiRes: '0'
+ perl: '5.008001'
resources:
bugtracker: https://github.com/xaicron/p5-DBIx-QueryLog/issues
homepage: https://github.com/xaicron/p5-DBIx-QueryLog
repository: git://github.com/xaicron/p5-DBIx-QueryLog.git
-version: 0.37
+version: '0.39'
x_contributors:
- 'Yuki Ibe <yibe@yibe.org>'
- - 'Ryuta Kamizono <kamipo@gmail.com>'
- 'tokuhirom <tokuhirom@gmail.com>'
- - 'makamaka <makamaka.donzoko@gmail.com>'
- 'cho45 <cho45@lowreal.net>'
- 'Syohei YOSHIDA <syohex@gmail.com>'
+ - 'makamaka <makamaka.donzoko@gmail.com>'
+ - 'Ryuta Kamizono <kamipo@gmail.com>'
- 'Yuji Shimada <xaicron@gmail.com>'
@@ -34,7 +34,7 @@ Currently, works on DBD::mysql, DBD::Pg and DBD::sqlite.
- logger
- Sets logger class (e.g. [Log::Dispach](http://search.cpan.org/perldoc?Log::Dispach))
+ Sets logger class (e.g. [Log::Dispach](https://metacpan.org/pod/Log::Dispach))
Logger class must can be call \`log\` method.
@@ -82,8 +82,6 @@ Currently, works on DBD::mysql, DBD::Pg and DBD::sqlite.
Logged Explain.
- This feature requires `Text::ASCIITable` installed.
-
DBIx::QueryLog->explain(1);
my $row = $dbh->do(...);
# => SELECT * FROM peaple WHERE user_id = '1986'
@@ -154,7 +152,7 @@ Currently, works on DBD::mysql, DBD::Pg and DBD::sqlite.
DBIx::QueryLog->disable;
- SEE ALSO [Localization](http://search.cpan.org/perldoc?Localization) section.
+ SEE ALSO [Localization](https://metacpan.org/pod/Localization) section.
# TIPS
@@ -202,10 +200,10 @@ or you can specify code reference:
line : %d # caller line
FORMAT
- printf $format,
- @params{qw/localtime level pkg time data_source sql/},
- join(', ', @{$params{bind_params}}),
- @params{qw/file line/};
+ printf $format,
+ @params{qw/localtime level pkg time data_source sql/},
+ join(', ', @{$params{bind_params}}),
+ @params{qw/file line/};
printf "AutoCommit?: %d\n", $params->{dbh}->{AutoCommit} ? 1 : 0;
};
@@ -245,4 +243,4 @@ it under the same terms as Perl itself.
# SEE ALSO
-[DBI](http://search.cpan.org/perldoc?DBI)
+[DBI](https://metacpan.org/pod/DBI)
@@ -1,12 +1,12 @@
requires 'DBI';
requires 'Term::ANSIColor';
+requires 'Text::ASCIITable';
requires 'Time::HiRes';
requires 'Data::Dumper';
requires 'perl', '5.008001';
recommends 'DBD::mysql';
recommends 'DBD::SQLite';
recommends 'DBD::Pg';
-recommends 'Text::ASCIITable';
on build => sub {
requires 'ExtUtils::MakeMaker', '6.59';
@@ -7,11 +7,12 @@ use 5.008_001;
use DBI;
use Time::HiRes qw(gettimeofday tv_interval);
use Term::ANSIColor qw(colored);
+use Text::ASCIITable;
use Data::Dumper ();
$ENV{ANSI_COLORS_DISABLED} = 1 if $^O eq 'MSWin32';
-our $VERSION = '0.37';
+our $VERSION = '0.39';
use constant _ORG_EXECUTE => \&DBI::st::execute;
use constant _ORG_BIND_PARAM => \&DBI::st::bind_param;
@@ -24,7 +25,6 @@ use constant _HAS_MYSQL => eval { require DBD::mysql; 1 } ? 1 : 0;
use constant _HAS_PG => eval { require DBD::Pg; 1 } ? 1 : 0;
use constant _HAS_SQLITE => eval { require DBD::SQLite; 1 } ? 1 : 0;
use constant _PP_MODE => $INC{'DBI/PurePerl.pm'} ? 1 : 0;
-use constant _SUPPORTS_EXPLAIN => (_HAS_MYSQL || _HAS_SQLITE) && eval { require Text::ASCIITable; 1 } ? 1 : 0;
our %SKIP_PKG_MAP = (
'DBIx::QueryLog' => 1,
@@ -138,7 +138,7 @@ sub _st_execute {
$sth->{private_DBIx_QueryLog_params} = $dbh->{Driver}{Name} eq 'Pg' ? '' : undef;
my $explain;
- if (_SUPPORTS_EXPLAIN and $container->{explain} || $ENV{DBIX_QUERYLOG_EXPLAIN}) {
+ if ($container->{explain} || $ENV{DBIX_QUERYLOG_EXPLAIN}) {
$explain = _explain($dbh, $ret, \@params, \@types);
}
@@ -188,7 +188,7 @@ sub _select_array {
my $ret = ref $stmt ? $stmt->{Statement} : $stmt;
my $explain;
- if (_SUPPORTS_EXPLAIN and $container->{explain} || $ENV{DBIX_QUERYLOG_EXPLAIN}) {
+ if ($container->{explain} || $ENV{DBIX_QUERYLOG_EXPLAIN}) {
$explain = _explain($dbh, $ret, \@bind);
}
@@ -234,7 +234,7 @@ sub _db_do {
my $ret = $stmt;
my $explain;
- if (_SUPPORTS_EXPLAIN and $container->{explain} || $ENV{DBIX_QUERYLOG_EXPLAIN}) {
+ if ($container->{explain} || $ENV{DBIX_QUERYLOG_EXPLAIN}) {
$explain = _explain($dbh, $ret, \@bind);
}
@@ -570,8 +570,6 @@ B<< EXPERIMENTAL >>
Logged Explain.
-This feature requires C<< Text::ASCIITable >> installed.
-
DBIx::QueryLog->explain(1);
my $row = $dbh->do(...);
# => SELECT * FROM peaple WHERE user_id = '1986'
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::Requires qw(DBD::SQLite Text::ASCIITable);
+use Test::Requires qw(DBD::SQLite);
use Test::More;
use t::Util;
use DBIx::QueryLog ();
@@ -1,6 +1,6 @@
use strict;
use warnings;
-use Test::Requires qw(DBD::mysql Test::mysqld Text::ASCIITable);
+use Test::Requires qw(DBD::mysql Test::mysqld);
use Test::More;
use Test::mysqld;
use t::Util;