github
81 of 88 new or added lines in 6 files covered. (92.05%)
1 existing line in 1 file now uncovered.1579 of 2249 relevant lines covered (70.21%)
11410.51 hits per line
1 |
package Munin::Master::Static::HTML::CGI; |
|
2 |
|
|
3 |
# empty, it is just to have Perl loading this file to be able to override the |
|
4 |
# standard ::CGI namespace to mock it |
|
5 |
|
|
6 |
package CGI; |
|
7 |
|
|
8 |
sub new {
|
|
|
my $c = shift; |
914✔ |
|
my $params = shift; |
914✔ |
|
return bless $params, $c;
|
914✔ |
12 |
} |
|
13 |
|
|
14 |
sub path_info { |
|
|
my $self = shift; |
914✔ |
|
return $self->{path_info};
|
914✔ |
17 |
} |
|
18 |
|
|
19 |
sub url_param { |
|
|
my $self = shift; |
4,828✔ |
|
my $param = shift; |
4,828✔ |
|
die("undef") unless defined $param;
|
4,828✔ |
|
return $self->{url_param}{$param};
|
4,828✔ |
24 |
} |
|
25 |
|
|
26 |
my %header; |
|
27 |
sub header { |
|
|
my $self = shift; |
1,664✔ |
|
%header = @_;
|
1,664✔ |
30 |
|
|
31 |
# No return, so nothing is printed |
|
|
return ""; |
1,664✔ |
33 |
} |
|
34 |
|
|
35 |
sub url { |
|
NEW
|
my $self = shift; |
× |
NEW
|
return ""; |
× |
38 |
} |
|
39 |
|
|
40 |
1;
|