File Coverage

blib/lib/Apache/ASP/CGI/Table.pm

Criterion	Covered	Total	%
statement	15	19	78.9
branch	5	6	83.3
condition			n/a
subroutine	5	8	62.5
pod	0	7	0.0
total	25	40	62.5

package Apache::ASP::CGI::Table;

use Carp qw(confess);

=pod

=head1 NAME

  Apache::ASP::CGI::Table

=head1 DESCRIPTION

Layer for compatibility with Apache::Table objects
while running in CGI or command line / test mode.

=cut

sub new {
    my $class = shift;
    bless {}, $class;
}

sub set {
    my($self, $key, $value) = @_;
    defined($key) || confess("no key to set value $value");
    $self->{$key} = $value;
}

sub get { shift()->{shift()}; }
sub unset { delete shift()->{shift()} };
sub clear { %{shift()} = (); };
sub add {
    my($self, $name, $value) = @_;

    my $old_value = $self->{$name};
    if(ref $old_value) {
	push(@$old_value, $value);
    } elsif(defined $old_value) {
	$self->{$name} = [$old_value, $value];
    } else {
	$self->{$name} = $value;
    }
}

sub merge { die("merge not implemented"); }

1;