File Coverage

lib/DBIx/SchemaChecksum/Driver/SQLite.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package DBIx::SchemaChecksum::Driver::SQLite;
2 12     12   11856 use utf8;
  12         101  
  12         76  
3              
4             # ABSTRACT: SQLite driver for DBIx::SchemaChecksum
5              
6 12     12   2813 use namespace::autoclean;
  12         45397  
  12         87  
7 12     12   3569 use Moose::Role;
  12         36543  
  12         92  
8              
9             around '_build_schemadump_table' => sub {
10             my $orig = shift;
11             my ($self,$schema,$table) = @_;
12              
13             return
14             if ($table eq 'sqlite_temp_master' && $schema eq 'temp')
15             || ($table eq 'sqlite_sequence' && $schema eq 'main')
16             || ($table eq 'sqlite_master' && $schema eq 'main');
17              
18             return $self->$orig($schema,$table);
19             };
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =encoding UTF-8
28              
29             =head1 NAME
30              
31             DBIx::SchemaChecksum::Driver::SQLite - SQLite driver for DBIx::SchemaChecksum
32              
33             =head1 VERSION
34              
35             version 1.102
36              
37             =head1 DESCRIPTION
38              
39             Ignore some internal sqlite tables
40              
41             =head1 AUTHORS
42              
43             =over 4
44              
45             =item *
46              
47             Thomas Klausner <domm@cpan.org>
48              
49             =item *
50              
51             MaroÅ¡ Kollár <maros@cpan.org>
52              
53             =item *
54              
55             Klaus Ita <koki@worstofall.com>
56              
57             =back
58              
59             =head1 COPYRIGHT AND LICENSE
60              
61             This software is copyright (c) 2012 by Thomas Klausner, MaroÅ¡ Kollár, Klaus Ita.
62              
63             This is free software; you can redistribute it and/or modify it under
64             the same terms as the Perl 5 programming language system itself.
65              
66             =cut