File Coverage

blib/lib/MojoMojo/Schema/Base/Result.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


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;