File Coverage

/root/.cpan/build/Sereal-Path-4.002-0/blib/lib/Sereal/Path/Iterator.pm
Criterion Covered Total %
statement 20 21 95.2
branch n/a
condition n/a
subroutine 7 8 87.5
pod n/a
total 27 29 93.1


line stmt bran cond sub pod time code
1             package Sereal::Path::Iterator;
2 6     6   88 use 5.008;
  6         21  
3 6     6   34 use strict;
  6         11  
  6         133  
4 6     6   29 use warnings;
  6         13  
  6         158  
5 6     6   31 use Carp qw/croak/;
  6         12  
  6         317  
6 6     6   42 use XSLoader;
  6         17  
  6         551  
7              
8             our $VERSION = '4.002';
9             our $XS_VERSION = $VERSION; $VERSION= eval $VERSION;
10              
11             # TODO autogenerate constants from srl_iterator.h
12             use constant {
13 6         888 SRL_INFO_ROOT => (1 << 8),
14             SRL_INFO_REF => (2 << 8),
15             SRL_INFO_HASH => (4 << 8),
16             SRL_INFO_ARRAY => (8 << 8),
17             SRL_INFO_REGEXP => (16 << 8),
18             SRL_INFO_SCALAR => (32 << 8),
19             SRL_INFO_BLESSED => (1 << 16),
20             SRL_INFO_REF_TO => (2 << 16),
21 6     6   37 };
  6         10  
22              
23 6     6   33 use Exporter 'import';
  6         12  
  6         641  
24             our @EXPORT = qw(
25             SRL_INFO_ROOT
26             SRL_INFO_REF
27             SRL_INFO_HASH
28             SRL_INFO_ARRAY
29             SRL_INFO_REGEXP
30             SRL_INFO_SCALAR
31             SRL_INFO_BLESSED
32             SRL_INFO_REF_TO
33             );
34              
35             our %EXPORT_TAGS = (all => \@EXPORT);
36              
37 0     0     sub CLONE_SKIP {1}
38              
39             XSLoader::load(__PACKAGE__, $XS_VERSION);
40              
41             1;
42              
43             __END__