line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult; |
2
|
|
|
|
|
|
|
$DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult::VERSION = '0.002233'; |
3
|
|
|
|
|
|
|
# ABSTRACT: The typical way to store versions in the database |
4
|
|
|
|
|
|
|
|
5
|
19
|
|
|
19
|
|
119
|
use strict; |
|
19
|
|
|
|
|
46
|
|
|
19
|
|
|
|
|
492
|
|
6
|
19
|
|
|
19
|
|
87
|
use warnings; |
|
19
|
|
|
|
|
37
|
|
|
19
|
|
|
|
|
481
|
|
7
|
|
|
|
|
|
|
|
8
|
19
|
|
|
19
|
|
96
|
use parent 'DBIx::Class::Core'; |
|
19
|
|
|
|
|
39
|
|
|
19
|
|
|
|
|
138
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
my $table = 'dbix_class_deploymenthandler_versions'; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
__PACKAGE__->table($table); |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
__PACKAGE__->add_columns ( |
15
|
|
|
|
|
|
|
id => { |
16
|
|
|
|
|
|
|
data_type => 'int', |
17
|
|
|
|
|
|
|
is_auto_increment => 1, |
18
|
|
|
|
|
|
|
}, |
19
|
|
|
|
|
|
|
version => { |
20
|
|
|
|
|
|
|
data_type => 'varchar', |
21
|
|
|
|
|
|
|
# size needs to be at least |
22
|
|
|
|
|
|
|
# 40 to support SHA1 versions |
23
|
|
|
|
|
|
|
size => '50' |
24
|
|
|
|
|
|
|
}, |
25
|
|
|
|
|
|
|
ddl => { |
26
|
|
|
|
|
|
|
data_type => 'text', |
27
|
|
|
|
|
|
|
is_nullable => 1, |
28
|
|
|
|
|
|
|
}, |
29
|
|
|
|
|
|
|
upgrade_sql => { |
30
|
|
|
|
|
|
|
data_type => 'text', |
31
|
|
|
|
|
|
|
is_nullable => 1, |
32
|
|
|
|
|
|
|
}, |
33
|
|
|
|
|
|
|
); |
34
|
|
|
|
|
|
|
|
35
|
|
|
|
|
|
|
__PACKAGE__->set_primary_key('id'); |
36
|
|
|
|
|
|
|
__PACKAGE__->add_unique_constraint(['version']); |
37
|
|
|
|
|
|
|
__PACKAGE__->resultset_class('DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResultSet'); |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
sub sqlt_deploy_hook { |
40
|
31
|
|
|
31
|
0
|
580304
|
my ( $self, $sqlt_table ) = @_; |
41
|
31
|
|
|
|
|
598
|
my $tname = $sqlt_table->name; |
42
|
31
|
100
|
|
|
|
2858
|
return if $tname eq $table; |
43
|
|
|
|
|
|
|
# give indices unique names for sub-classes on different tables |
44
|
5
|
|
|
|
|
146
|
foreach my $c ( $sqlt_table->get_constraints ) { |
45
|
10
|
|
|
|
|
384
|
( my $cname = $c->name ) =~ s/\Q$table\E/$tname/; |
46
|
10
|
|
|
|
|
463
|
$c->name($cname); |
47
|
|
|
|
|
|
|
} |
48
|
|
|
|
|
|
|
} |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
1; |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
# vim: ts=2 sw=2 expandtab |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
__END__ |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
=pod |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
=head1 NAME |
59
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
|
DBIx::Class::DeploymentHandler::VersionStorage::Standard::VersionResult - The typical way to store versions in the database |
61
|
|
|
|
|
|
|
|
62
|
|
|
|
|
|
|
=head1 AUTHOR |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com> |
65
|
|
|
|
|
|
|
|
66
|
|
|
|
|
|
|
=head1 COPYRIGHT AND LICENSE |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
This software is copyright (c) 2019 by Arthur Axel "fREW" Schmidt. |
69
|
|
|
|
|
|
|
|
70
|
|
|
|
|
|
|
This is free software; you can redistribute it and/or modify it under |
71
|
|
|
|
|
|
|
the same terms as the Perl 5 programming language system itself. |
72
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
=cut |