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   136818 use 5.010000;
  3         28  
3 3     3   14 use strict;
  3         5  
  3         56  
4 3     3   13 use warnings;
  3         5  
  3         62  
5 3     3   13 use B;
  3         4  
  3         195  
6              
7             our $VERSION = "0.36";
8              
9 3     3   1324 use parent qw(Exporter);
  3         926  
  3         14  
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   1407 use Perl::Lexer::Token;
  3         6  
  3         88  
20              
21 3     3   16 use XSLoader;
  3         6  
  3         306  
22             XSLoader::load(__PACKAGE__, $VERSION);
23              
24             sub new {
25 4     4 1 8582 my $class = shift;
26 4         14 bless {}, $class;
27             }
28              
29             sub scan_string {
30 4     4 1 10 my ($self, $str) = @_;
31 4     2   81 open my $fh, '<', \$str;
  2         14  
  2         2  
  2         10  
32 0         0 $self->scan_fh($fh);
33             }
34              
35             4649;
36             __END__