[Bast-commits] r4718 - DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures

[lukes at dev.catalyst.perl.org]

Author: lukes
Date: 2008-08-01 20:07:17 +0100 (Fri, 01 Aug 2008)
New Revision: 4718

Removed:
   DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm
   DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/Versioned.pm
Log:
removed the versioned stuff

Deleted: DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm
===================================================================
--- DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm	2008-08-01 18:18:25 UTC (rev 4717)
+++ DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/SchemaVersioned.pm	2008-08-01 19:07:17 UTC (rev 4718)
@@ -1,18 +0,0 @@
-package DBIx::Class::Fixtures::SchemaVersioned;
-
-use strict;
-use warnings;
-
-use base 'DBIx::Class::Schema::Loader';
-
-our $VERSION = 'set-when-loading';
-
-__PACKAGE__->load_components('Schema::Versioned');
-__PACKAGE__->loader_options(
-                            # debug                 => 1,
-                           );
-
-sub schema_version {
-	return $DBIx::Class::Fixtures::SchemaVersioned::VERSION;
-}
-1;

Deleted: DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/Versioned.pm
===================================================================
--- DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/Versioned.pm	2008-08-01 18:18:25 UTC (rev 4717)
+++ DBIx-Class-Fixtures/1.001/trunk/lib/DBIx/Class/Fixtures/Versioned.pm	2008-08-01 19:07:17 UTC (rev 4718)
@@ -1,45 +0,0 @@
-package DBIx::Class::Fixtures::Versioned;
-
-use strict;
-use warnings;
-
-use base qw/DBIx::Class::Fixtures/;
-use DBIx::Class::Fixtures::SchemaVersioned;
-use Class::C3;
-
-=head1 NAME
-
-DBIx::Class::Fixtures::Versioned
-
-=head1 DESCRIPTION
-
-Just ignore it for now, but it will vaguely tie in to DBIx::Class::Schema::Versioned's functionality eventually.
-
-=cut
-
-sub populate {
-  my $self = shift;
-  my ($params) = @_;
-
-  $self->schema_class("DBIx::Class::Fixtures::SchemaVersioned");
-  unless ($params->{version}) {
-    return DBIx::Class::Exception->throw('You must pass a version to populate');
-  }
-  return $self->next::method(@_);
-}
-
-sub _generate_schema {
-  my $self = shift;
-  my ($params) = @_;
-
-  # manually set the schema version
-  $DBIx::Class::Fixtures::SchemaVersioned::VERSION = $params->{version};
-
-  my $schema = $self->next::method(@_);
-
-  # set the db version to the schema version
-  $schema->upgrade(); # set version number
-  return $schema;
-}
-
-1;