File Coverage

blib/lib/Perl/APIReference/V5_008_006.pm
Criterion Covered Total %
statement 21 21 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 27 27 100.0


line stmt bran cond sub pod time code
1             package Perl::APIReference::V5_008_006;
2 1     1   5 use strict;
  1         2  
  1         25  
3 1     1   6 use warnings;
  1         2  
  1         24  
4 1     1   6 use Sereal::Decoder;
  1         2  
  1         37  
5 1     1   5 use parent 'Perl::APIReference';
  1         2  
  1         5  
6              
7             sub new {
8 1     1 1 2 my $class = shift;
9 1         3 my $pos = tell(*DATA);
10 1         3 binmode(*DATA);
11 1         4 local $/ = undef;
12              
13 1         35 my $data = ;
14 1         3 $data =~ s/^\s+//;
15              
16 1         1620 my $self = bless({
17             'index' => Sereal::Decoder::decode_sereal($data),
18             perl_version => '5.008006',
19             } => $class);
20              
21 1         5 seek(*DATA, $pos, 0);
22              
23 1         7 return $self;
24             }
25              
26             1;
27              
28             __DATA__