[Bast-commits] r3230 - in trunk/DBIx-Class-InflateColumn-Currency:
. lib/DBIx/Class/InflateColumn t
claco at dev.catalyst.perl.org
claco at dev.catalyst.perl.org
Sat May 5 03:09:51 GMT 2007
Author: claco
Date: 2007-05-05 03:09:49 +0100 (Sat, 05 May 2007)
New Revision: 3230
Added:
trunk/DBIx-Class-InflateColumn-Currency/t/manifest.t
trunk/DBIx-Class-InflateColumn-Currency/t/strict.t
trunk/DBIx-Class-InflateColumn-Currency/t/style_no_tabs.t
trunk/DBIx-Class-InflateColumn-Currency/t/warnings.t
Modified:
trunk/DBIx-Class-InflateColumn-Currency/Build.PL
trunk/DBIx-Class-InflateColumn-Currency/Changes
trunk/DBIx-Class-InflateColumn-Currency/MANIFEST
trunk/DBIx-Class-InflateColumn-Currency/MANIFEST.SKIP
trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL
trunk/DBIx-Class-InflateColumn-Currency/README
trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm
trunk/DBIx-Class-InflateColumn-Currency/t/pod_coverage.t
trunk/DBIx-Class-InflateColumn-Currency/t/pod_spelling.t
trunk/DBIx-Class-InflateColumn-Currency/t/pod_syntax.t
Log:
Converted to Module::Install
Converted version to 3 part harmony for FBSD ports happiness
Added more cargo cult tests. SLowly making all of my dists the same.
Modified: trunk/DBIx-Class-InflateColumn-Currency/Build.PL
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/Build.PL 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/Build.PL 2007-05-05 02:09:49 UTC (rev 3230)
@@ -1,3 +1,2 @@
-# Dear Distribution Packager. This use of require is intentional.
-# Module::Install detects Build.PL usage and acts accordingly.
+# $Id$
require 'Makefile.PL';
Modified: trunk/DBIx-Class-InflateColumn-Currency/Changes
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/Changes 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/Changes 2007-05-05 02:09:49 UTC (rev 3230)
@@ -1,4 +1,9 @@
Revision history for DBIx::Class::InflateColumn::Currency
+0.02000 Fri May 04 21:22:54 2007
+ - Converted to Module::Install
+ - Converted version to 3 part harmony for FBSD ports happiness
+ - Added more cargo cult tests. SLowly making all of my dists the same.
+
0.01 Mon Mar 05 19:22:06 2007
- First version, released on an unsuspecting world.
Modified: trunk/DBIx-Class-InflateColumn-Currency/MANIFEST
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/MANIFEST 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/MANIFEST 2007-05-05 02:09:49 UTC (rev 3230)
@@ -1,4 +1,3 @@
-Build.PL
Changes
inc/Module/AutoInstall.pm
inc/Module/Install.pm
@@ -25,7 +24,11 @@
t/lib/DBIC/Test/Schema.pm
t/lib/DBIC/Test/Schema/Items.pm
t/lib/DBIC/Test/Schema/Prices.pm
+t/manifest.t
t/pod_coverage.t
t/pod_spelling.t
t/pod_syntax.t
t/sql/test.sqlite.sql
+t/strict.t
+t/style_no_tabs.t
+t/warnings.t
Modified: trunk/DBIx-Class-InflateColumn-Currency/MANIFEST.SKIP
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/MANIFEST.SKIP 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/MANIFEST.SKIP 2007-05-05 02:09:49 UTC (rev 3230)
@@ -2,12 +2,16 @@
\bCVS\b
,v$
\B\.svn\b
+t/var
^blib/
^pm_to_blib
^MakeMaker-\d
Makefile$
Makefile.old$
+Build.PL
+Build.bat
\.db
t/TEST$
t/SMOKE$
-^blibdirs\.ts
\ No newline at end of file
+^blibdirs\.ts
+\.gz
\ No newline at end of file
Modified: trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/Makefile.PL 2007-05-05 02:09:49 UTC (rev 3230)
@@ -1,20 +1,25 @@
-use inc::Module::Install 0.64;
+# $Id$
+use strict;
+use warnings;
+use inc::Module::Install 0.65;
-name 'DBIx-Class-InflateColumn-Currency';
-all_from 'lib/DBIx/Class/InflateColumn/Currency.pm';
+name 'DBIx-Class-InflateColumn-Currency';
+license 'perl';
perl_version '5.006001';
-license 'perl';
+all_from 'lib/DBIx/Class/InflateColumn/Currency.pm';
-requires 'DBIx::Class' => 0.07005;
-requires 'Data::Currency' => 0.03;
+requires 'DBIx::Class' => '0.07005';
+requires 'Data::Currency' => '0.03';
-build_requires 'DBD::SQLite' => 1.11;
-build_requires 'Class::Accessor::Grouped' => 0.03;
+build_requires 'DBD::SQLite' => '1.11';
+build_requires 'Class::Accessor::Grouped' => '0.03';
tests "t/*.t t/*/*.t";
+clean_files "DBIx-Class-InflateColumn-Currency-* t/var";
-clean_files "t/var";
+eval {
+ system 'pod2text lib/DBIx/Class/InflateColumn/Currency.pm > README';
+};
auto_install;
-
WriteAll;
Modified: trunk/DBIx-Class-InflateColumn-Currency/README
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/README 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/README 2007-05-05 02:09:49 UTC (rev 3230)
@@ -24,10 +24,11 @@
print 'Japanese Yen: ', $item->price->convert('JPY');
DESCRIPTION
- This module inflates/deflates designated column into
+ This module inflates/deflates designated columns into Data::Currency
+ objects.
METHODS
- currency_code;
+ currency_code
Arguments: $code
Gets/sets the default currency code used when inflating currency
Modified: trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/lib/DBIx/Class/InflateColumn/Currency.pm 2007-05-05 02:09:49 UTC (rev 3230)
@@ -1,7 +1,7 @@
package DBIx::Class::InflateColumn::Currency;
use strict;
use warnings;
-our $VERSION = '0.01';
+our $VERSION = '0.02000';
BEGIN {
use base qw/DBIx::Class Class::Accessor::Grouped/;
Added: trunk/DBIx-Class-InflateColumn-Currency/t/manifest.t
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/manifest.t (rev 0)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/manifest.t 2007-05-05 02:09:49 UTC (rev 3230)
@@ -0,0 +1,22 @@
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+ use lib 't/lib';
+ use DBIC::Test;
+
+ plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+ eval 'use Test::CheckManifest 0.09';
+ if($@) {
+ plan skip_all => 'Test::CheckManifest 0.09 not installed';
+ };
+};
+
+ok_manifest({
+ exclude => ['/t/var', '/cover_db'],
+ filter => [qr/\.svn/, qr/cover/, qr/Build(.(PL|bat))?/, qr/_build/],
+ bool => 'or'
+});
Property changes on: trunk/DBIx-Class-InflateColumn-Currency/t/manifest.t
___________________________________________________________________
Name: svn:keywords
+ Id
Name: svn:eol-style
+ native
Modified: trunk/DBIx-Class-InflateColumn-Currency/t/pod_coverage.t
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/pod_coverage.t 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/pod_coverage.t 2007-05-05 02:09:49 UTC (rev 3230)
@@ -7,7 +7,7 @@
use lib 't/lib';
use DBIC::Test;
- plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+ plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
eval 'use Test::Pod::Coverage 1.04';
plan skip_all => 'Test::Pod::Coverage 1.04' if $@;
Modified: trunk/DBIx-Class-InflateColumn-Currency/t/pod_spelling.t
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/pod_spelling.t 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/pod_spelling.t 2007-05-05 02:09:49 UTC (rev 3230)
@@ -7,7 +7,7 @@
use lib 't/lib';
use DBIC::Test;
- plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+ plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
eval 'use Test::Spelling 0.11';
plan skip_all => 'Test::Spelling 0.11 not installed' if $@;
Modified: trunk/DBIx-Class-InflateColumn-Currency/t/pod_syntax.t
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/pod_syntax.t 2007-05-03 22:58:13 UTC (rev 3229)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/pod_syntax.t 2007-05-05 02:09:49 UTC (rev 3230)
@@ -7,7 +7,7 @@
use lib 't/lib';
use DBIC::Test;
- plan skip_all => 'set TEST_POD to enable this test' unless $ENV{TEST_POD};
+ plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
eval 'use Test::Pod 1.00';
plan skip_all => 'Test::Pod 1.00 not installed' if $@;
Added: trunk/DBIx-Class-InflateColumn-Currency/t/strict.t
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/strict.t (rev 0)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/strict.t 2007-05-05 02:09:49 UTC (rev 3230)
@@ -0,0 +1,53 @@
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+ use lib 't/lib';
+ use DBIC::Test;
+ use File::Find;
+ use File::Basename;
+
+ plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+ eval 'use Test::Strict';
+ plan skip_all => 'Test::Strict not installed' if $@;
+ plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+};
+
+## I hope this can go away if Test::Strict or File::Find::Rule
+## finally run under -T. Until then, I'm on my own here. ;-)
+my @files;
+my %trusted = (
+
+);
+
+find({ wanted => \&wanted,
+ untaint => 1,
+ untaint_pattern => qr|^([-+@\w./]+)$|,
+ untaint_skip => 1,
+ no_chdir => 1
+}, qw(lib t));
+
+sub wanted {
+ my $name = $File::Find::name;
+ my $file = fileparse($name);
+
+ return if $name =~ /TestApp/;
+
+ if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
+ push @files, $name;
+ };
+};
+
+if (scalar @files) {
+ plan tests => scalar @files;
+} else {
+ plan tests => 1;
+ fail 'No perl files found for Test::Strict checks!';
+};
+
+foreach (@files) {
+ strict_ok($_);
+};
Property changes on: trunk/DBIx-Class-InflateColumn-Currency/t/strict.t
___________________________________________________________________
Name: svn:keywords
+ Id
Name: svn:eol-style
+ native
Added: trunk/DBIx-Class-InflateColumn-Currency/t/style_no_tabs.t
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/style_no_tabs.t (rev 0)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/style_no_tabs.t 2007-05-05 02:09:49 UTC (rev 3230)
@@ -0,0 +1,16 @@
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+ use lib 't/lib';
+ use DBIC::Test;
+
+ plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+ eval 'use Test::NoTabs 0.03';
+ plan skip_all => 'Test::NoTabs 0.03 not installed' if $@;
+};
+
+all_perl_files_ok('lib');
Property changes on: trunk/DBIx-Class-InflateColumn-Currency/t/style_no_tabs.t
___________________________________________________________________
Name: svn:keywords
+ Id
Name: svn:eol-style
+ native
Added: trunk/DBIx-Class-InflateColumn-Currency/t/warnings.t
===================================================================
--- trunk/DBIx-Class-InflateColumn-Currency/t/warnings.t (rev 0)
+++ trunk/DBIx-Class-InflateColumn-Currency/t/warnings.t 2007-05-05 02:09:49 UTC (rev 3230)
@@ -0,0 +1,53 @@
+#!perl -wT
+# $Id$
+use strict;
+use warnings;
+
+BEGIN {
+ use lib 't/lib';
+ use DBIC::Test;
+ use File::Find;
+ use File::Basename;
+
+ plan skip_all => 'set TEST_AUTHOR to enable this test' unless $ENV{TEST_AUTHOR};
+
+ eval 'use Test::Strict 0.05';
+ plan skip_all => 'Test::Strict 0.05 not installed' if $@;
+ plan skip_all => 'Need untaint in newer File::Find' if $] <= 5.006;
+};
+
+## I hope this can go away if Test::Strict or File::Find::Rule
+## finally run under -T. Until then, I'm on my own here. ;-)
+my @files;
+my %trusted = (
+
+);
+
+find({ wanted => \&wanted,
+ untaint => 1,
+ untaint_pattern => qr|^([-+@\w./]+)$|,
+ untaint_skip => 1,
+ no_chdir => 1
+}, qw(lib t));
+
+sub wanted {
+ my $name = $File::Find::name;
+ my $file = fileparse($name);
+
+ return if $name =~ /TestApp/;
+
+ if ($name =~ /\.(pm|pl|t)$/i && !exists($trusted{$file})) {
+ push @files, $name;
+ };
+};
+
+if (scalar @files) {
+ plan tests => scalar @files;
+} else {
+ plan tests => 1;
+ fail 'No perl files found for Test::Strict checks!';
+};
+
+foreach (@files) {
+ warnings_ok($_);
+};
Property changes on: trunk/DBIx-Class-InflateColumn-Currency/t/warnings.t
___________________________________________________________________
Name: svn:keywords
+ Id
Name: svn:eol-style
+ native
More information about the Bast-commits
mailing list