0d9cd887696279c621107fe0c44733f309285e39
[dbsrgits/DBIx-Class-DeploymentHandler.git] / lib / DBIx / Class / DeploymentHandler / VersionStorage / Standard.pm
1 package DBIx::Class::DeploymentHandler::VersionStorage::Standard;
2 use Moose;
3 use Method::Signatures::Simple;
4
5 has schema => (
6   isa      => 'DBIx::Class::Schema',
7   is       => 'ro',
8   required => 1,
9 );
10
11 has version_rs => (
12   isa        => 'DBIx::Class::ResultSet',
13   is         => 'ro',
14   lazy_build => 1, # builder comes from another role...
15                    # which is... probably not how we want it
16   handles    => [qw( database_version version_storage_is_installed )],
17 );
18
19 with 'DBIx::Class::DeploymentHandler::HandlesVersionStorage';
20
21 sub _build_version_rs {
22    $_[0]->schema->set_us_up_the_bomb;
23    $_[0]->schema->resultset('__VERSION')
24 }
25
26 sub add_database_version { $_[0]->version_rs->create($_[1]) }
27
28 sub install_version_storage { die }
29
30 1;
31
32 __END__
33
34 vim: ts=2 sw=2 expandtab