File Coverage

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