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

# File Coverage

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

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