File Coverage

blib/lib/Mojo/Cache/Role/Strict.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Mojo::Cache::Role::Strict;
2              
3 1     1   2237 use Carp ();
  1         2  
  1         26  
4 1     1   5 use Role::Tiny;
  1         2  
  1         7  
5              
6             with 'Mojo::Cache::Role::Exists';
7              
8             our $VERSION = '0.02';
9              
10             before get => sub { Carp::confess "unknown key '$_[1]'" unless $_[0]->exists($_[1]) };
11              
12             1;
13             __END__