File Coverage

blib/lib/AxKit/XSP/Param.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

# $Id: Param.pm,v 1.7 2001/06/04 10:08:43 matt Exp $

package AxKit::XSP::Param;
use strict;
use Apache::AxKit::Language::XSP;

use vars qw/@ISA $NS $VERSION/;

@ISA = ('Apache::AxKit::Language::XSP');
$NS = 'http://axkit.org/NS/xsp/param/v1';

$VERSION = "1.4";

## Taglib subs

# NONE! ;-)

## Parser subs

sub parse_start {
    my ($e, $tag, %attribs) = @_;
    #warn "Checking: $tag\n";

    $e->start_expr($tag);
    $e->append_to_script('$cgi->param(q|' . $tag . '|)');
    $e->end_expr();
    return '';
}

sub parse_char {
     # compat only
}


sub parse_end {
     # compat only
}

sub parse_comment {
    # compat only
}

sub parse_final {
   # compat only
}

1;

__END__