File Coverage

blib/lib/Mcache.pm

Criterion	Covered	Total	%
statement	78	128	60.9
branch	18	44	40.9
condition			n/a
subroutine	8	12	66.6
pod	0	7	0.0
total	104	191	54.4

package Mcache;

use 5.010001;
use strict;
use warnings;

require Exporter;

our @ISA = qw(Exporter);

our @EXPORT = qw(new get add del update count id);

our $VERSION = '0.031';

###################

sub new {
    my $classname = shift;
    my $self = {};
    bless($self,$classname);
    $self->_init(@_);
    return $self;
}

sub _init {
    my $self = shift;
    if (@_) {
    }
}

sub DESTROY {
}

###################

sub add {
    my $self = shift;
    my @in = @_;
    my $key;
    if ($in[1]) {
	if ($in[2]) {
	    $key = "$in[2]";
	}
	else {
	    # generate unique KEY
	    $key = "$in[1]"."-".rand(1000000)."-".time."-".rand(3141592652);
	}
	$self->{$in[1]}->{"$key"} = "\"key\": \"$key\", ".$in[0];

	my $str = "\"list\": [";
	my $count = 0;
	my $rndid = rand(314159265);
	foreach my $d (sort keys %{$self->{$in[1]}}) {
	    if ($d eq 'CACHE') {next;}
	    if ($d eq 'STAT') {next;}
	    if ($d eq 'ID') {next;}
	    $str = $str." {".$self->{$in[1]}->{$d}."},";
	    ++$count;
	    $rndid = $rndid + rand(314159265);
	}
	chop($str);
	$str = $str."], \"count\": \"$count\"";
	$self->{$in[1]}->{'CACHE'} = $str;
	$self->{$in[1]}->{'STAT'} = $count;
	$self->{$in[1]}->{'ID'} = $rndid;
	undef $str;
	undef $rndid;
	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;
	    my $rndid = rand(314159265);
	    foreach my $d (sort keys %{$self->{$in[1]}}) {
		if ($d eq 'CACHE') {next;}
		if ($d eq 'STAT') {next;}
		if ($d eq 'ID') {next;}
		$str = $str." {".$self->{$in[1]}->{$d}."},";
		++$count;
		$rndid = $rndid + rand(314159265);
	    }
	    chop($str);
	    $str = $str."], \"count\": \"$count\"";
	    $self->{$in[1]}->{'CACHE'} = $str;
	    $self->{$in[1]}->{'STAT'} = $count;
	    $self->{$in[1]}->{'ID'} = $rndid;
	    undef $str;
	    undef $rndid;
	    undef @in;
	}
	else {
#	    add(@in);
	}
    }
}

sub del {
    my $self = shift;
    my @in = @_;
    if ($in[1]) {
	if (exists $self->{$in[0]}->{$in[1]}) {
	    delete($self->{$in[0]}->{$in[1]});
#	    print "del: $in[1]\n";
	}
	else {
#	    print "no del\n";
	}


	my $str = "\"list\": [";
	my $count = 0;
	my $rndid = rand(314159265);
	foreach my $d (sort keys %{$self->{$in[0]}}) {
	    if ($d eq 'CACHE') {next;}
	    if ($d eq 'STAT') {next;}
	    if ($d eq 'ID') {next;}
	    $str = $str." {(-".$d."-)".$self->{$in[0]}->{$d}."},";
	    ++$count;
	    $rndid = $rndid + rand(314159265);
	}
	chop($str);
	$str = $str."], \"count\": \"$count\"";
	$self->{$in[0]}->{'CACHE'} = $str;
	$self->{$in[0]}->{'STAT'} = $count;
	$self->{$in[0]}->{'ID'} = $rndid;
	undef $str;
	undef $rndid;
	undef @in;

	return 1;
    }
    else {
	return 0;
    }
}

sub get {
    my $self = shift;
    my @in = @_;
    my $key;
    if ($in[1]) {
	my $r = $self->{$in[0]}->{$in[1]};
	if (!$r) {
	    $r = "\"key\": \"undef\"";
	}
	return $r;
    }
    elsif($in[0]) {
	my $r = $self->{$in[0]}->{'CACHE'};
	if (!$r) {
	    return "\"id\": \"null\"";
	}
	else {
	    return $r;
	}
    }
    else {
	return "\"id\": \"undef\"";
    }
}


sub count {
    my $self = shift;
    my @in = @_;
    if ($in[0]) {
	return 	$self->{$in[0]}->{'STAT'};
    }
}

sub id {
    my $self = shift;
    my @in = @_;
    if ($in[0]) {
	return 	$self->{$in[0]}->{'ID'};
    }
}


1;
__END__