[Bast-commits] r3384 - in trunk/DBIx-Class-InflateColumn-ISBN: . lib/DBIx/Class/InflateColumn

[penguin at dev.catalyst.perl.org]

Author: penguin
Date: 2007-05-25 17:28:22 +0100 (Fri, 25 May 2007)
New Revision: 3384

Modified:
   trunk/DBIx-Class-InflateColumn-ISBN/Changes
   trunk/DBIx-Class-InflateColumn-ISBN/MANIFEST
   trunk/DBIx-Class-InflateColumn-ISBN/README
   trunk/DBIx-Class-InflateColumn-ISBN/lib/DBIx/Class/InflateColumn/ISBN.pm
Log:
::InflateColumn::ISBN tweaks

Modified: trunk/DBIx-Class-InflateColumn-ISBN/Changes
===================================================================
--- trunk/DBIx-Class-InflateColumn-ISBN/Changes	2007-05-25 16:00:52 UTC (rev 3383)
+++ trunk/DBIx-Class-InflateColumn-ISBN/Changes	2007-05-25 16:28:22 UTC (rev 3384)
@@ -1,4 +1,12 @@
 Revision history for DBIx::Class::InflateColumn::ISBN
 
+0.02000 Fri May 25 15:41:44 2007
+    - Started using longer version numbers.
+    - Fixed bug in deflate method for Business::ISBN 1.x.
+    - Minor POD tweaks.
+
+0.01 Fri May 25 15:14:08 2007
+    - First version, released on an unsuspecting world.
+
 0.00 Thu May 24 21:55:43 2007
     - First version, not released, just a placeholder.

Modified: trunk/DBIx-Class-InflateColumn-ISBN/MANIFEST
===================================================================
--- trunk/DBIx-Class-InflateColumn-ISBN/MANIFEST	2007-05-25 16:00:52 UTC (rev 3383)
+++ trunk/DBIx-Class-InflateColumn-ISBN/MANIFEST	2007-05-25 16:28:22 UTC (rev 3384)
@@ -10,19 +10,17 @@
 inc/Module/Install/Metadata.pm
 inc/Module/Install/Win32.pm
 inc/Module/Install/WriteAll.pm
-lib/DBIx/Class/InflateColumn/IP.pm
+lib/DBIx/Class/InflateColumn/ISBN.pm
 Makefile.PL
-MANIFEST
+MANIFEST			This list of files
 MANIFEST.SKIP
-META.yml			# Will be created by "make dist"
+META.yml
 README
 t/00-load.t
-t/01-ip.t
-t/boilerplate.t
+t/01-isbn.t
 t/lib/DBICTest.pm
 t/lib/DBICTest/Schema.pm
-t/lib/DBICTest/Schema/Host.pm
-t/lib/DBICTest/Schema/Network.pm
+t/lib/DBICTest/Schema/Library.pm
 t/lib/sqlite.sql
 t/pod-coverage.t
 t/pod.t

Modified: trunk/DBIx-Class-InflateColumn-ISBN/README
===================================================================
--- trunk/DBIx-Class-InflateColumn-ISBN/README	2007-05-25 16:00:52 UTC (rev 3383)
+++ trunk/DBIx-Class-InflateColumn-ISBN/README	2007-05-25 16:28:22 UTC (rev 3384)
@@ -3,7 +3,7 @@
     from columns.
 
 VERSION
-    Version 0.01
+    Version 0.02000
 
 SYNOPSIS
     Load this component and declare columns as ISBNs with the appropriate
@@ -20,7 +20,7 @@
             }
         );
 
-    It had to be a varchar rather than a simple integer given that it is
+    It has to be a varchar rather than a simple integer given that it is
     possible for ISBNs to contain the character X. Old style ISBNs are 10
     characters, not including hyphens, but new style ones are 13 characters.
 
@@ -34,7 +34,8 @@
     Arguments: $class
 
     Gets/sets the address class that the columns should be inflated into.
-    The default class is Business::ISBN.
+    The default class is Business::ISBN and only that is currently
+    supported.
 
   register_column
     Chains with "register_column" in DBIx::Class::Row, and sets up ISBN
@@ -73,10 +74,10 @@
         <http://search.cpan.org/dist/DBIx-Class-InflateColumn-ISBN>
 
 SEE ALSO
+    Business::ISBN
+
     DBIx::Class::InflateColumn
 
-    Business::ISBN
-
     WWW::Scraper::ISBN
 
 COPYRIGHT & LICENSE

Modified: trunk/DBIx-Class-InflateColumn-ISBN/lib/DBIx/Class/InflateColumn/ISBN.pm
===================================================================
--- trunk/DBIx-Class-InflateColumn-ISBN/lib/DBIx/Class/InflateColumn/ISBN.pm	2007-05-25 16:00:52 UTC (rev 3383)
+++ trunk/DBIx-Class-InflateColumn-ISBN/lib/DBIx/Class/InflateColumn/ISBN.pm	2007-05-25 16:28:22 UTC (rev 3384)
@@ -3,7 +3,7 @@
 use warnings;
 use strict;
 
-our $VERSION = '0.01';
+our $VERSION = '0.02000';
 
 use base qw/DBIx::Class/;
 __PACKAGE__->mk_classdata('isbn_class');
@@ -15,7 +15,7 @@
 
 =head1 VERSION
 
-Version 0.01
+Version 0.02000
 
 =head1 SYNOPSIS
 
@@ -78,7 +78,7 @@
     $self->inflate_column(
         $column => {
             inflate => sub { return $isbn_class->new(sprintf("%010s", shift)); },
-            deflate => sub { return shift->common_data; },
+            deflate => sub { return shift->isbn; },
         }
     );
 }