File Coverage

blib/lib/Perl/Lexer.pm
Criterion Covered Total %
statement 27 28 96.4
branch n/a
condition n/a
subroutine 10 10 100.0
pod 2 2 100.0
total 39 40 97.5


line stmt bran cond sub pod time code
1             package Perl::Lexer;
2 3     3   118775 use 5.010000;
  3         25  
3 3     3   11 use strict;
  3         4  
  3         83  
4 3     3   14 use warnings;
  3         3  
  3         76  
5 3     3   13 use B;
  3         3  
  3         170  
6              
7             our $VERSION = "0.34";
8              
9 3     3   1210 use parent qw(Exporter);
  3         814  
  3         15  
10              
11             our @EXPORT = qw(
12             TOKENTYPE_NONE
13             TOKENTYPE_IVAL
14             TOKENTYPE_OPNUM
15             TOKENTYPE_PVAL
16             TOKENTYPE_OPVAL
17             );
18              
19 3     3   1200 use Perl::Lexer::Token;
  3         6  
  3         83  
20              
21 3     3   16 use XSLoader;
  3         6  
  3         255  
22             XSLoader::load(__PACKAGE__, $VERSION);
23              
24             sub new {
25 4     4 1 8277 my $class = shift;
26 4         18 bless {}, $class;
27             }
28              
29             sub scan_string {
30 4     4 1 12 my ($self, $str) = @_;
31 4     2   109 open my $fh, '<', \$str;
  2         14  
  2         4  
  2         12  
32 0         0 $self->scan_fh($fh);
33             }
34              
35             4649;
36             __END__