File Coverage

blib/lib/Test2/API/InterceptResult/Facet.pm
Criterion Covered Total %
statement 12 13 92.3
branch 1 2 50.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 17 20 85.0


line stmt bran cond sub pod time code
1             package Test2::API::InterceptResult::Facet;
2 35     35   247 use strict;
  35         74  
  35         1001  
3 35     35   189 use warnings;
  35         229  
  35         2104  
4              
5             our $VERSION = '1.302181';
6              
7             BEGIN {
8 35     35   261 require Test2::EventFacet;
9 35         5075 our @ISA = ('Test2::EventFacet');
10             }
11              
12             our $AUTOLOAD;
13             sub AUTOLOAD {
14 2     2   5 my $self = shift;
15              
16 2         6 my $name = $AUTOLOAD;
17 2         15 $name =~ s/^.*:://g;
18              
19 2 50       17 return undef unless exists $self->{$name};
20 0           return $self->{$name};
21             }
22              
23       0     sub DESTROY {}
24              
25             1;