File Coverage

blib/lib/DBIx/SchemaChecksum/App/Checksum.pm
Criterion Covered Total %
statement 8 8 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 13 13 100.0


line stmt bran cond sub pod time code
1             package DBIx::SchemaChecksum::App::Checksum;
2              
3             # ABSTRACT: get the current DB checksum
4             our $VERSION = '1.103'; # VERSION
5              
6 1     1   23676 use 5.010;
  1         5  
7              
8 1     1   530 use MooseX::App::Command;
  1         479352  
  1         5  
9             extends qw(DBIx::SchemaChecksum::App);
10              
11             option 'show_dump' => (
12             is => 'ro',
13             isa => 'Bool',
14             documentation => q[Show the raw database dump structure],
15             default => 0,
16             );
17              
18             sub run {
19 2     2   3775 my $self = shift;
20              
21 2         18 say $self->checksum;
22 2 100       104 say $self->_schemadump if $self->show_dump;
23             }
24              
25             __PACKAGE__->meta->make_immutable();
26             1;
27              
28             __END__
29              
30             =pod
31              
32             =encoding UTF-8
33              
34             =head1 NAME
35              
36             DBIx::SchemaChecksum::App::Checksum - get the current DB checksum
37              
38             =head1 VERSION
39              
40             version 1.103
41              
42             =head1 DESCRIPTION
43              
44             Calculate the current checksum and report it. Use C<--show_dump> to
45             show the string dump on which the checksum is based.
46              
47             =head1 AUTHORS
48              
49             =over 4
50              
51             =item *
52              
53             Thomas Klausner <domm@plix.at>
54              
55             =item *
56              
57             Maroš Kollár <maros@cpan.org>
58              
59             =item *
60              
61             Klaus Ita <koki@worstofall.com>
62              
63             =back
64              
65             =head1 COPYRIGHT AND LICENSE
66              
67             This software is copyright (c) 2012 - 2021 by Thomas Klausner, Maroš Kollár, Klaus Ita.
68              
69             This is free software; you can redistribute it and/or modify it under
70             the same terms as the Perl 5 programming language system itself.
71              
72             =cut