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   90374 use strict;
  4         8  
  4         120  
3 4     4   25 use warnings;
  4         11  
  4         215  
4              
5             package Context::Singleton::Frame::Builder::Value;
6              
7             our $VERSION = v1.0.5;
8              
9 4     4   22 use parent qw[ Context::Singleton::Frame::Builder::Base ];
  4         8  
  4         20  
10              
11             sub new {
12 76     76 0 7847 my ($class, %def) = @_;
13              
14 76         221 return $class->SUPER::new (value => $def{value});
15             }
16              
17             sub build {
18 14     14 0 1951 my ($self) = @_;
19              
20 14         38 return $self->{value};
21             }
22              
23             1;
24