File Coverage

File:lib/DBIx/SchemaChecksum/App/Checksum.pm
Coverage:100.0%

linestmtbrancondsubtimecode
1package DBIx::SchemaChecksum::App::Checksum;
2
2
2
2
3422
4
51
use 5.010;
3
2
2
2
160
15691
31
use MooseX::App::Command;
4extends qw(DBIx::SchemaChecksum::App);
5
6option 'show_dump' => (
7    is => 'ro',
8    isa => 'Bool',
9    documentation => q[Show the raw database dump structure],
10    default => 0,
11);
12
13sub run {
14
2
9181
    my $self = shift;
15
16
2
27
    say $self->checksum;
17
2
47
    say $self->_schemadump if $self->show_dump;
18}
191;