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 8     8   45 use strict;
  8         13  
  8         663  
4              
5             sub on_open {
6 0     0 0   return "
7              
8              
9            
10            

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