From: Arthur Axel 'fREW' Schmidt Date: Thu, 6 May 2010 04:56:15 +0000 (-0500) Subject: git rid of some useless roles X-Git-Tag: v0.001000_07~21 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b9738c4cf9d2e057938c52ca15e3bf2b4bdce67;p=dbsrgits%2FDBIx-Class-DeploymentHandler.git git rid of some useless roles --- diff --git a/lib/DBIx/Class/DeploymentHandler/WithMonotonicVersions.pm b/lib/DBIx/Class/DeploymentHandler/WithMonotonicVersions.pm deleted file mode 100644 index f94988e..0000000 --- a/lib/DBIx/Class/DeploymentHandler/WithMonotonicVersions.pm +++ /dev/null @@ -1,37 +0,0 @@ -package DBIx::Class::DeploymentHandler::WithMonotonicVersions; -use Moose::Role; - -# ABSTRACT: Delegate/Role for DBIx::Class::DeploymentHandler::VersionHandler::Monotonic - -use DBIx::Class::DeploymentHandler::VersionHandler::Monotonic; - -has version_handler => ( - is => 'ro', - lazy_build => 1, - does => 'DBIx::Class::DeploymentHandler::HandlesVersioning', - handles => 'DBIx::Class::DeploymentHandler::HandlesVersioning', -); - -sub _build_version_handler { - my $self = shift; - - my $args = { - database_version => $self->database_version, - schema_version => $self->schema_version, - }; - - $args->{to_version} = $self->to_version if $self->has_to_version; - DBIx::Class::DeploymentHandler::VersionHandler::Monotonic->new($args); -} - -1; - -# vim: ts=2 sw=2 expandtab - -__END__ - -=head1 DELEGATION ROLE - -This role is entirely for making delegation look like a role. The actual -docs for the methods and attributes are at -L diff --git a/lib/DBIx/Class/DeploymentHandler/WithStandardVersionStorage.pm b/lib/DBIx/Class/DeploymentHandler/WithStandardVersionStorage.pm deleted file mode 100644 index 499dde9..0000000 --- a/lib/DBIx/Class/DeploymentHandler/WithStandardVersionStorage.pm +++ /dev/null @@ -1,30 +0,0 @@ -package DBIx::Class::DeploymentHandler::WithStandardVersionStorage; -use Moose::Role; - -# ABSTRACT: Delegate/Role for DBIx::Class::DeploymentHandler::VersionStorage::Standard - -use DBIx::Class::DeploymentHandler::VersionStorage::Standard; - -has version_storage => ( - does => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage', - is => 'ro', - builder => '_build_version_storage', - handles => 'DBIx::Class::DeploymentHandler::HandlesVersionStorage', -); - -sub _build_version_storage { - DBIx::Class::DeploymentHandler::VersionStorage::Standard - ->new({ schema => $_[0]->schema }); -} - -1; - -# vim: ts=2 sw=2 expandtab - -__END__ - -=head1 DELEGATION ROLE - -This role is entirely for making delegation look like a role. The actual -docs for the methods and attributes are at -L