view release on metacpan or  search on metacpan

lib/Mcache.pm  view on Meta::CPAN

	undef @in;


	return $key;
    }
    else {
	return 0;
    }
}

sub update {
    my $self = shift;
    my @in = @_;
    my $key;
    if ($in[2]) {
        $key = "$in[2]";
	if (exists $self->{$in[1]}->{$in[2]}) {
	    $self->{$in[1]}->{$in[2]} = "\"key\": \"$key\", ".$in[0];

	    my $str = "\"list\": [";
	    my $count = 0;