File Coverage

blib/lib/Devel/Declare/Lexer/Token/Newline.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 12 13 92.3


line stmt bran cond sub pod time code
1             package Devel::Declare::Lexer::Token::Newline;
2              
3 10     10   59 use base qw/ Devel::Declare::Lexer::Token /;
  10         19  
  10         905  
4              
5 10     10   108 use v5;
  10         33  
  10         1238  
6              
7             sub new
8             {
9 35     35 0 69 my ($caller, %arg) = @_;
10              
11 35         145 my $self = $caller->SUPER::new(
12             value => "\n",
13             %arg,
14             );
15              
16 35         208 return $self;
17             }
18              
19             1;