File Coverage

blib/lib/AxKit/XSP/IfParam.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             # $Id: IfParam.pm,v 1.1.1.1 2001/06/07 15:40:36 matt Exp $
2              
3             package AxKit::XSP::IfParam;
4              
5 1     1   5502 use strict;
  1         3  
  1         35  
6 1     1   1425 use Apache::AxKit::Language::XSP;
  0            
  0            
7              
8             use vars qw/@ISA $NS $VERSION/;
9              
10             @ISA = ('Apache::AxKit::Language::XSP');
11             $NS = 'http://axkit.org/NS/xsp/if-param/v1';
12              
13             $VERSION = "1.4";
14              
15             sub parse_start {
16             my ($e, $tag) = @_;
17              
18             $e->manage_text(0);
19             return 'if ($cgi->param(q|' . $tag . '|)) {';
20             }
21              
22             sub parse_end {
23             # compat only
24             return '}';
25             }
26              
27             1;
28            
29             __END__