File Coverage

blib/lib/Bubblegum/Object/Role/Value.pm
Criterion Covered Total %
statement 12 18 66.6
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 26 61.5


line stmt bran cond sub pod time code
1             package Bubblegum::Object::Role::Value;
2              
3 37     37   17986 use 5.10.0;
  37         98  
  37         1531  
4 37     37   164 use namespace::autoclean;
  37         50  
  37         676  
5              
6 37     37   2352 use Bubblegum::Role 'with';
  37         53  
  37         541  
7 37     37   27159 use Bubblegum::Constraints -isas, -types;
  37         56  
  37         374  
8              
9             with 'Bubblegum::Object::Role::Defined';
10              
11             our $VERSION = '0.45'; # VERSION
12              
13             sub do {
14 0     0 0   my $self = CORE::shift;
15 0           my $code = CORE::shift;
16              
17 0 0         $code = $code->codify if isa_string $code;
18 0           type_coderef $code;
19              
20 0           local $_ = $self;
21 0           return $code->($self);
22             }
23              
24             1;