File Coverage

blib/lib/Perl/APIReference/V5_008_004.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

package Perl::APIReference::V5_008_004;
use strict;
use warnings;
use Sereal::Decoder;
use parent 'Perl::APIReference';

sub new {
  my $class = shift;
  my $pos = tell(*DATA);
  binmode(*DATA);
  local $/ = undef;

  my $data = ;
  $data =~ s/^\s+//;

  my $self = bless({
    'index'      => Sereal::Decoder::decode_sereal($data),
    perl_version => '5.008004',
  } => $class);

  seek(*DATA, $pos, 0);

  return $self;
}

1;

__DATA__