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 | 3422 4 51 | use 5.010; | |||
3 | 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 | 9181 | my $self = shift; | |||
15 | ||||||
16 | 2 | 27 | say $self->checksum; | |||
17 | 2 | 47 | say $self->_schemadump if $self->show_dump; | |||
18 | } | |||||
19 | 1; |