File Coverage

blib/lib/OPM/Maker/Command/dbtest.pm
Criterion Covered Total %
statement 19 19 100.0
branch 2 2 100.0
condition n/a
subroutine 8 8 100.0
pod 4 4 100.0
total 33 33 100.0


line stmt bran cond sub pod time code
1             package OPM::Maker::Command::dbtest;
2             $OPM::Maker::Command::dbtest::VERSION = '1.15';
3             # ABSTRACT: Test db definitions in .sopm files
4              
5 17     17   13079 use strict;
  17         39  
  17         529  
6 17     17   107 use warnings;
  17         32  
  17         564  
7              
8 17     17   422 use OPM::Maker -command;
  17         30  
  17         147  
9              
10 17     17   30304 use OPM::Maker::Utils qw(check_args_sopm);
  17         40  
  17         3071  
11              
12             sub abstract {
13 1     1 1 2737 return "Check if DatabaseInstall and DatabaseUninstall sections in the .sopm are correct";
14             }
15              
16             sub usage_desc {
17 1     1 1 847 return "opmbuild dbtest ";
18             }
19              
20             sub validate_args {
21 8     8 1 9356 my ($self, $opt, $args) = @_;
22              
23 8         28 my $sopm = check_args_sopm( $args );
24              
25 8 100       59 $self->usage_error( 'need path to .sopm' ) if
26             !$sopm;
27             }
28              
29             sub execute {
30 1     1 1 582 my ($self, $opt, $args) = @_;
31              
32 1         8 die "not implemented yet";
33             }
34              
35             1;
36              
37             __END__