File Coverage

blib/lib/Devel/Declare/Lexer/Token.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 2 0.0
total 11 13 84.6


line stmt bran cond sub pod time code
1             package Devel::Declare::Lexer::Token;
2              
3 10     10   218 use v5;
  10         37  
  10         1493  
4              
5             sub new
6             {
7 1013     1013 0 2275 my ($caller, %arg) = @_;
8              
9 1013         4918 my $self = bless {
10             %arg
11             }, $caller;
12              
13 1013         4330 return $self;
14             }
15              
16             sub get
17             {
18 901     901 0 4148 my ($self) = @_;
19              
20 901         5437 return $self->{value};
21             }
22              
23             1;