File Coverage

blib/lib/Plack/VCR.pm

Criterion	Covered	Total	%
statement	46	46	100.0
branch	11	14	78.5
condition			n/a
subroutine	11	11	100.0
pod	2	2	100.0
total	70	73	95.8

## no critic (RequireUseStrict)
package Plack::VCR;
$Plack::VCR::VERSION = '0.04';
## use critic (RequireUseStrict)
use strict;
use warnings;

use Carp qw(croak);
use HTTP::Request;
use Sereal qw(decode_sereal);
use IO::File;
use Plack::VCR::Interaction;
use UNIVERSAL;

use namespace::clean;

sub new {
    my ( $class, %opts ) = @_;

    my $filename = $opts{'filename'} or croak "filename parameter required";

    my $file = IO::File->new($filename, 'r') or croak $!;

    return bless {
        file => $file,
    }, $class;
}

sub next {
    my ( $self ) = @_;

    my $file = $self->{'file'};

    my $size = '';
    my $bytes = $file->read($size, 4);
    return if $bytes == 0;
    croak "Unexpected end of file" unless $bytes == 4;

    $size = unpack('N', $size);
    if($size > -s $file) {
        croak "Invalid file contents";
    }
    my $request = '';
    $bytes = $file->read($request, $size);
    croak "Unexpected end of file" unless $bytes == $size;
    $request = decode_sereal($request);

    croak "Invalid file contents"
        unless UNIVERSAL::isa($request, 'HTTP::Request');

    return Plack::VCR::Interaction->new(
        request => $request,
    );
}

1;

# ABSTRACT: API for interacting with a frozen request file

__END__