line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package MojoMojo::Schema::Base::Result; |
2
|
|
|
|
|
|
|
|
3
|
40
|
|
|
40
|
|
13468
|
use strict; |
|
40
|
|
|
|
|
151
|
|
|
40
|
|
|
|
|
1123
|
|
4
|
40
|
|
|
40
|
|
197
|
use warnings; |
|
40
|
|
|
|
|
86
|
|
|
40
|
|
|
|
|
1100
|
|
5
|
40
|
|
|
40
|
|
206
|
use parent qw/DBIx::Class/; |
|
40
|
|
|
|
|
104
|
|
|
40
|
|
|
|
|
238
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
=head1 NAME |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
MojoMojo::Schema::Base::Result - base class for Result classes |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
=head1 DESCRIPTION |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
Base class for all result classes below the MojoMojo::Schema::Result::* namespace. |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
=head1 LICENSE |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
This library is free software. You can redistribute it and/or modify |
18
|
|
|
|
|
|
|
it under the same terms as Perl itself. |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
=head1 Methods |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=head2 sqlt_deploy_hook |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
Set Database specific info to achieve UTF-8 support in the database we deploy to. |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
=cut |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
sub sqlt_deploy_hook { |
29
|
102
|
|
|
102
|
1
|
3134707
|
my ( $self, $sqlt_table ) = @_; |
30
|
102
|
|
|
|
|
1919
|
$sqlt_table->extra( |
31
|
|
|
|
|
|
|
mysql_table_type => 'InnoDB', |
32
|
|
|
|
|
|
|
mysql_charset => 'utf8' |
33
|
|
|
|
|
|
|
); |
34
|
|
|
|
|
|
|
} |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
1; |