File Coverage

blib/lib/Devel/StackTrace/WithLexicals/Frame.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 3 0.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             package Devel::StackTrace::WithLexicals::Frame;
2 6     6   24 use strict;
  6         8  
  6         189  
3 6     6   21 use warnings;
  6         9  
  6         122  
4 6     6   20 use Devel::StackTrace;
  6         6  
  6         97  
5 6     6   19 use base 'Devel::StackTrace::Frame';
  6         9  
  6         868  
6              
7             sub new {
8 15     15 0 18 my $class = shift;
9              
10 15         68 my $self = $class->SUPER::new(@_);
11              
12 15         382 $self->{lexicals} = $_[6];
13              
14 15         108 return $self;
15             }
16              
17 23     23 0 3219 sub lexicals { shift->{lexicals} }
18              
19             sub lexical {
20 1     1 0 9 my $self = shift;
21 1         2 return $self->lexicals->{$_[0]};
22             }
23              
24             1;
25