[Bast-commits] r3132 - trunk/DBIx-Class-TimeStamp/lib/DBIx/Class

[jshirley at dev.catalyst.perl.org]

Author: jshirley
Date: 2007-03-18 17:22:13 +0000 (Sun, 18 Mar 2007)
New Revision: 3132

Modified:
   trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm
Log:
Adding version, minor pod changes

Modified: trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm
===================================================================
--- trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm	2007-03-17 19:25:17 UTC (rev 3131)
+++ trunk/DBIx-Class-TimeStamp/lib/DBIx/Class/TimeStamp.pm	2007-03-18 17:22:13 UTC (rev 3132)
@@ -8,6 +8,8 @@
 use Data::Dump qw(dump);
 use DateTime;
 
+our $VERSION = '0.01';
+
 __PACKAGE__->load_components( qw/InflateColumn::DateTime/ );
 __PACKAGE__->mk_classdata( 
     '__column_timestamp_triggers' => {
@@ -28,7 +30,7 @@
 
  package My::Schema;
 
- __PACKAGE__->load_components(qw( TimeStamp InflateColumn::DateTime ... Core ));
+ __PACKAGE__->load_components(qw( TimeStamp ... Core ));
  
  __PACKAGE__->add_columns(
     id => { data_type => 'integer' },
@@ -103,6 +105,8 @@
     return $self->next::method(@_);
 }
 
+=head1 METHODS
+
 =head2 get_timestamp
 
 Returns a DateTime object pointing to now.  Override this method if you have