view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

name: Cache-Isolator
no_index:
  directory:
    - inc
    - t
    - xt
requires:
  Class::Accessor::Lite: 0
  List::Util: 0
  Time::HiRes: 0
  Try::Tiny: 0.09
resources:
  license: http://dev.perl.org/licenses/
  repository: git://github.com/kazeburo/Cache-Isolator.git
version: 0.02

Makefile.PL  view on Meta::CPAN

use inc::Module::Install;
name 'Cache-Isolator';
all_from 'lib/Cache/Isolator.pm';

requires 'Try::Tiny', 0.09;
requires 'List::Util';
requires 'Time::HiRes';
requires 'Class::Accessor::Lite';

tests 't/*.t';
author_tests 'xt';

test_requires 'Test::More';
test_requires 'Test::TCP';
test_requires 'Test::Skip::UnlessExistsExecutable';

lib/Cache/Isolator.pm  view on Meta::CPAN

package Cache::Isolator;

use strict;
use warnings;
use Carp;
use Try::Tiny;
use Time::HiRes;
use List::Util qw/shuffle/;
use Class::Accessor::Lite (
    ro  => [ qw(cache interval timeout concurrency trial early_expires_ratio expires_before) ],
);

our $VERSION = '0.02';

sub new {
    my $class = shift;