CPAN::Groonga

modified)
            = make_value('self_shift');

        is   $o1_base, $o1_clone,    ;
        isnt $o1_base, $o1_another,  ;
        is   $o1_base, $o2_base,     ;
        is   $o1_base, $o1_modif

f_coded');

        is   $o1_base, $o1_clone,    ;
        isnt $o1_base, $o1_another,  ;
        is   $o1_base, $o2_base,     ;
        isnt $o1_base, $o1_modified, ;
    }

    {
        my ($o1_bas

       = make_value('per_object');

        is   $o1_base, $o1_clone,    ;
        isnt $o1_base, $o1_another,  ;
        isnt $o1_base, $o2_base,     ;
        is   $o1_base, $o1_modified, ;
    }
}

1 :Cached(undef, 1, SERIALIZE)        { echo @_ }
}

# use Dummy;
Dummy->import;

# Test for test
isnt(
    Dummy::echo(qw/1 .. 3/),
    Dummy::echo(qw/1 .. 3/),
);

# Does Cache function correctly?
{

mains:
        is $call1, $call2, "is $method";

        # Cache is expired:
        isnt $call1_1, $call2_1, "isnt $method\_1";

    }
}

# Test that uses parameters
{
    no strict 'refs';

    use 

    );

    # When the address of reference is different, it is interpreted as another value.
    isnt(
        Dummy::method0(@origin1),
        Dummy::method0(@dclone1),
    );

    my @is_serialize

aram3} = 1;

    my $value6 = Dummy::HashArgs::echo(%params);

    is   $value1, $value2;
    isnt $value1, $value3;
    isnt $value1, $value4;
    is   $value1, $value5;
    isnt $value1, $value6;
}

Method::Cached::Manager->delete('Dummy::DeleteTest::echo', $param1, $param2);
    
    my $value3 = Dummy::DeleteTest::echo($param1, $param2);

    is   $value1, $value2;
    isnt $value1, $value3;
}