File Coverage

lib/App/Sandy/Command/Expression/Remove.pm
Criterion Covered Total %
statement 3 14 21.4
branch 0 6 0.0
condition n/a
subroutine 1 3 33.3
pod 2 2 100.0
total 6 25 24.0


line stmt bran cond sub pod time code
1             package App::Sandy::Command::Expression::Remove;
2             # ABSTRACT: expression subcommand class. Remove an expression-matrix from database.
3              
4 1     1   6750 use App::Sandy::Base 'class';
  1         2  
  1         8  
5              
6             extends 'App::Sandy::Command::Expression';
7              
8             our $VERSION = '0.25'; # VERSION
9              
10             override 'opt_spec' => sub {
11             super,
12             'verbose|v'
13             };
14              
15             sub validate_args {
16 0     0 1   my ($self, $args) = @_;
17 0           my $expression_matrix = shift @$args;
18              
19             # Mandatory file
20 0 0         if (not defined $expression_matrix) {
21 0           die "Missing expression-matrix\n";
22             }
23              
24 0 0         die "Too many arguments: '@$args'\n" if @$args;
25             }
26              
27             sub execute {
28 0     0 1   my ($self, $opts, $args) = @_;
29 0           my $expression_matrix = shift @$args;
30              
31 0 0         $LOG_VERBOSE = exists $opts->{verbose} ? $opts->{verbose} : 0;
32              
33 0           log_msg ":: Attempting to remove $expression_matrix ...";
34 0           $self->deletedb($expression_matrix);
35 0           log_msg ":: Done!";
36             }
37              
38             __END__
39              
40             =pod
41              
42             =encoding UTF-8
43              
44             =head1 NAME
45              
46             App::Sandy::Command::Expression::Remove - expression subcommand class. Remove an expression-matrix from database.
47              
48             =head1 VERSION
49              
50             version 0.25
51              
52             =head1 SYNOPSIS
53              
54             sandy expression remove <expression-matrix>
55              
56             Arguments:
57             an expression-matrix entry
58              
59             Options:
60             -h, --help brief help message
61             -M, --man full documentation
62             -v, --verbose print log messages
63              
64             =head1 DESCRIPTION
65              
66             Remove an expression-matrix from database.
67              
68             =head1 AUTHORS
69              
70             =over 4
71              
72             =item *
73              
74             Thiago L. A. Miller <tmiller@mochsl.org.br>
75              
76             =item *
77              
78             J. Leonel Buzzo <lbuzzo@mochsl.org.br>
79              
80             =item *
81              
82             Felipe R. C. dos Santos <fsantos@mochsl.org.br>
83              
84             =item *
85              
86             Helena B. Conceição <hconceicao@mochsl.org.br>
87              
88             =item *
89              
90             Rodrigo Barreiro <rbarreiro@mochsl.org.br>
91              
92             =item *
93              
94             Gabriela Guardia <gguardia@mochsl.org.br>
95              
96             =item *
97              
98             Fernanda Orpinelli <forpinelli@mochsl.org.br>
99              
100             =item *
101              
102             Rafael Mercuri <rmercuri@mochsl.org.br>
103              
104             =item *
105              
106             Rodrigo Barreiro <rbarreiro@mochsl.org.br>
107              
108             =item *
109              
110             Pedro A. F. Galante <pgalante@mochsl.org.br>
111              
112             =back
113              
114             =head1 COPYRIGHT AND LICENSE
115              
116             This software is Copyright (c) 2023 by Teaching and Research Institute from Sírio-Libanês Hospital.
117              
118             This is free software, licensed under:
119              
120             The GNU General Public License, Version 3, June 2007
121              
122             =cut