File Coverage

blib/lib/CGI/Session/Hidden.pm

Criterion	Covered	Total	%
statement	6	20	30.0
branch	0	2	0.0
condition	0	2	0.0
subroutine	2	8	25.0
pod	1	5	20.0
total	9	37	24.3

package CGI::Session::Hidden;

use strict;
use MIME::Base64 qw();

our $VERSION = '0.03';

sub store {
    my( $self, $sid, $options, $data ) = @_;
    my $storable_data = $self->freeze( $data );

    $self->{_data} = $storable_data;

    return 1;
}

sub retrieve {
    my( $self, $sid, $options ) = @_;

    my $data = $self->thaw( MIME::Base64::decode_base64
                                ( $options->[1]{CGI}->param( $sid ) || '' ) );

    return $data;
}

# these two do not require an implementation
sub remove {
}

sub teardown {
}

sub field {
    my $self = shift;

    $self->flush unless $self->_data;

    my $val = MIME::Base64::encode_base64( $self->_data );
    return ( 'type="hidden" name="' .
             $self->id . '" value="' . $val . '"' );
}

sub _data { $_[0]->{_data} }

1;

__END__