File Coverage

lib/App/Sandy/Command/Quality/Dump.pm
Criterion Covered Total %
statement 3 15 20.0
branch 0 4 0.0
condition n/a
subroutine 1 3 33.3
pod 2 2 100.0
total 6 24 25.0


line stmt bran cond sub pod time code
1             package App::Sandy::Command::Quality::Dump;
2             # ABSTRACT: quality subcommand class. Dump a quality profile from database.
3              
4 1     1   4971 use App::Sandy::Base 'class';
  1         2  
  1         8  
5              
6             extends 'App::Sandy::Command::Quality';
7              
8             our $VERSION = '0.22'; # VERSION
9              
10             sub validate_args {
11 0     0 1   my ($self, $args) = @_;
12 0           my $quality_profile = shift @$args;
13              
14 0 0         if (not defined $quality_profile) {
15 0           die "Missing quality-profile\n";
16             }
17              
18 0 0         die "Too many arguments: '@$args'\n" if @$args;
19             }
20              
21             sub execute {
22 0     0 1   my ($self, $opts, $args) = @_;
23 0           my $quality_profile = shift @$args;
24              
25 0           my ($matrix, $deepth, $partil) = $self->retrievedb($quality_profile);
26              
27 0           for (my $line = 0; $line < $deepth; $line++) {
28 0           for (my $col = 0; $col < $partil; $col++) {
29 0           print "$matrix->[$col][$line]";
30             }
31 0           print "\n";
32             }
33             }
34              
35             __END__
36              
37             =pod
38              
39             =encoding UTF-8
40              
41             =head1 NAME
42              
43             App::Sandy::Command::Quality::Dump - quality subcommand class. Dump a quality profile from database.
44              
45             =head1 VERSION
46              
47             version 0.22
48              
49             =head1 SYNOPSIS
50              
51             sandy quality dump <quality-profile>
52              
53             Arguments:
54             a quality-profile entry
55              
56             Options:
57             -h, --help brief help message
58             -u, --man full documentation
59              
60             =head1 DESCRIPTION
61              
62             Dump a quality profile from database.
63              
64             =head1 AUTHORS
65              
66             =over 4
67              
68             =item *
69              
70             Thiago L. A. Miller <tmiller@mochsl.org.br>
71              
72             =item *
73              
74             J. Leonel Buzzo <lbuzzo@mochsl.org.br>
75              
76             =item *
77              
78             Felipe R. C. dos Santos <fsantos@mochsl.org.br>
79              
80             =item *
81              
82             Helena B. Conceição <hconceicao@mochsl.org.br>
83              
84             =item *
85              
86             Gabriela Guardia <gguardia@mochsl.org.br>
87              
88             =item *
89              
90             Fernanda Orpinelli <forpinelli@mochsl.org.br>
91              
92             =item *
93              
94             Pedro A. F. Galante <pgalante@mochsl.org.br>
95              
96             =back
97              
98             =head1 COPYRIGHT AND LICENSE
99              
100             This software is Copyright (c) 2018 by Teaching and Research Institute from Sírio-Libanês Hospital.
101              
102             This is free software, licensed under:
103              
104             The GNU General Public License, Version 3, June 2007
105              
106             =cut