gistfile1.perl

use warnings;
use strict;

use threads qw(yield);
# require Vimana::VimOnline::ScriptPage;

sub get_cache {
    use Cache::Memory;
    return Cache::Memory->new( 
        namespace => 'MyNamespace', 
        default_expires => '600 sec' );
}

my $f = async {
    warn "f1 start";
    my $cache = get_cache();
    yield();
    for ( 1 .. 10 ) {
        warn $_;
        sleep 1;
        $cache->set( $_ , $_ );
    }
};

my $f2 = async {
    warn "f2 start";
    my $cache = get_cache();
    yield();
    for ( 20 .. 30 ) {
        warn $_;
        sleep 1;
        $cache->set( $_ , $_ );
    }
};
$f->join();
$f2->join();

my $cache = get_cache();
warn $cache->count( );
warn 'END';