File Coverage

lib/Context/Singleton/Frame/Builder/Value.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 18 20 90.0


line stmt bran cond sub pod time code
1              
2 4     4   108908 use strict;
  4         12  
  4         132  
3 4     4   21 use warnings;
  4         9  
  4         227  
4              
5             package Context::Singleton::Frame::Builder::Value;
6              
7             our $VERSION = v1.0.4;
8              
9 4     4   26 use parent qw[ Context::Singleton::Frame::Builder::Base ];
  4         8  
  4         36  
10              
11             sub new {
12 76     76 0 9387 my ($class, %def) = @_;
13              
14 76         301 return $class->SUPER::new (value => $def{value});
15             }
16              
17             sub build {
18 14     14 0 2299 my ($self) = @_;
19              
20 14         50 return $self->{value};
21             }
22              
23             1;
24