File Coverage

blib/lib/Moxy/Component/Context.pm
Criterion Covered Total %
statement 8 11 72.7
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 2 0.0
total 11 17 64.7


line stmt bran cond sub pod time code
1             package Moxy::Component::Context;
2 14     14   99784 use strict;
  14         36  
  14         1823  
3 14     14   81 use warnings;
  14         31  
  14         1301  
4              
5             my $context;
6              
7             sub new {
8 11     11 0 6043 my $class = shift;
9 11         74 my $self = $class->NEXT('new' => @_);
10 0           $context = $self;
11 0           $self;
12             }
13              
14 0     0 0   sub context { $context }
15              
16             1;