File Coverage

blib/lib/Web/Compare.pm

Criterion	Covered	Total	%
statement	18	50	36.0
branch	0	12	0.0
condition	0	3	0.0
subroutine	6	11	54.5
pod	2	2	100.0
total	26	78	33.3

package Web::Compare;
use strict;
use warnings;
use HTTP::Request;
use Furl;
use Diff::LibXDiff;

use Class::Accessor::Lite (
    ro  => [qw/
        req
        ua
        diff
        hook_before
        hook_after
        on_error
    /],
);

our $VERSION = '0.04';

sub new {
    my ($class, $left, $right, $options) = @_;

    bless {
        req => [ _init_req($left), _init_req($right) ],
        ua  => $options->{ua} || Furl->new,
        diff => $options->{diff},
        hook_before => $options->{hook_before},
        hook_after  => $options->{hook_after},
        on_error    => $options->{on_error},
    }, $class;
}

sub _init_req {
    my $u = shift;

    unless (ref $u eq 'HTTP::Request') {
        $u = HTTP::Request->new(GET => $u);
    }

    return $u;
}

sub report {
    my $self = shift;

    my $responses = $self->_request;
    my $diff = $self->_diff($responses);

    return $diff;
}

sub _request {
    my $self = shift;

    my @responses;

    for my $req ( @{ $self->req } ) {
        if ($self->hook_before) {
            $self->hook_before->($self, $req);
        }
        my $res = $self->ua->request($req);
        unless ($res->is_success) {
            if ($self->on_error) {
                $self->on_error->($self, $res, $req);
            }
            die 'Error: '.$req->uri. "\n". $res->status_line. "\n";
        }
        my $content = $self->hook_after
                    ? $self->hook_after->($self, $res, $req) : $res->content;
        push @responses, $content;
    }

    return \@responses;
}

sub _diff {
    my ($self, $responses) = @_;

    my $diff;

    if ($self->diff) {
        $diff = $self->diff->(@{$responses});
    }
    else {
        $diff = Diff::LibXDiff->diff(@{$responses});
    }

    return $diff;
}

1;

__END__