File Coverage

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