File Coverage

lib/CGI/OptimalQuery/ExportDataTool.pm
Criterion Covered Total %
statement 3 6 50.0
branch n/a
condition 0 2 0.0
subroutine 1 3 33.3
pod 0 2 0.0
total 4 13 30.7


line stmt bran cond sub pod time code
1             package CGI::OptimalQuery::ExportDataTool;
2              
3 1     1   3 use strict;
  1         1  
  1         75  
4              
5             sub on_open {
6 0     0 0   return "
7            
8            

9             download as..
10             CSV (Excel),
11             HTML,
12             JSON,
13             XML";
14             }
15              
16             sub activate {
17 0     0 0   my ($o) = @_;
18             $$o{schema}{tools}{export} ||= {
19 0   0       title => "Export Data",
20             on_open => \&on_open
21             };
22             }
23              
24             1;