| 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; | |||||