[Bast-commits] r4013 - in DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class: . Fixtures

[captainL at dev.catalyst.perl.org]

Author: captainL
Date: 2008-02-01 22:20:17 +0000 (Fri, 01 Feb 2008)
New Revision: 4013

Modified:
   DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm
   DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm
Log:
fixed ::Versioned class

Modified: DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm
===================================================================
--- DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm	2008-02-01 19:33:00 UTC (rev 4012)
+++ DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures/Versioned.pm	2008-02-01 22:20:17 UTC (rev 4013)
@@ -16,18 +16,12 @@
 
 =head1 NAME
 
-=head1 SYNOPSIS
+DBIx::Class::Fixtures::Versioned
 
 =head1 DESCRIPTION
 
-=head1 AUTHOR
+Just ignore it for now, but it will vaguely tie in to DBIx::Class::Schema::Versioned's functionality eventually.
 
-=head1 CONTRIBUTORS
-
-=head1 METHODS
-
-=head2 new
-
 =cut
 
 sub populate {
@@ -36,7 +30,7 @@
 
   $self->schema_class("DBIx::Class::Fixtures::SchemaVersioned");
   unless ($params->{version}) {
-      return DBIx::Class::Exception->throw('You must pass a version to populate');
+    return DBIx::Class::Exception->throw('You must pass a version to populate');
   }
 
   return $self->next::method(@_);
@@ -46,14 +40,14 @@
   my $self = shift;
   my ($params) = @_;
 
-  my $v = $self->schema_class;
   # manually set the schema version
-  ${$v::VERSION} = $params->{version};
+  $DBIx::Class::Fixtures::SchemaVersioned::VERSION = $params->{version};
 
   my $schema = $self->next::method(@_);
+  $schema->schema_version($params->{version});
 
   # set the db version to the schema version
-  $schema->upgrade(); # set version number  
+  $schema->upgrade(); # set version number
 
   return $schema;
 }

Modified: DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm
===================================================================
--- DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm	2008-02-01 19:33:00 UTC (rev 4012)
+++ DBIx-Class-Fixtures/1.000/trunk/lib/DBIx/Class/Fixtures.pm	2008-02-01 22:20:17 UTC (rev 4013)
@@ -29,6 +29,8 @@
 
 =head1 NAME
 
+DBIx::Class::Fixtures
+
 =head1 SYNOPSIS
 
   use DBIx::Class::Fixtures;
@@ -124,7 +126,7 @@
 
   my $schema = $params->{schema};
 
-  $self->msg("generating  fixtures\n");
+  $self->msg("generating  fixtures");
   my $tmp_output_dir = dir($output_dir, '-~dump~-');
 
   unless (-e $tmp_output_dir) {