File Coverage

blib/lib/Devel/Declare/Lexer/Token/Raw.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 15 17 88.2


line stmt bran cond sub pod time code
1             package Devel::Declare::Lexer::Token::Raw;
2              
3 4     4   23 use base qw/ Devel::Declare::Lexer::Token /;
  4         6  
  4         415  
4              
5 4     4   56 use v5;
  4         14  
  4         3814  
6              
7             sub new
8             {
9 21     21 0 204 my ($caller, %arg) = @_;
10              
11 21         99 my $self = $caller->SUPER::new(%arg);
12              
13 21         77 return $self;
14             }
15              
16             sub get
17             {
18 21     21 0 85 my ($self) = @_;
19              
20 21         94 return $self->{value};
21             }
22              
23             1;