NAME

Web::Compare - Compare web pages

SYNOPSIS

            

              
              
use Web::Compare;
my $wc = Web::Compare->new($left_url, $right_url);
warn $wc->report;
            
          

DESCRIPTION

Web::Compare is the tool for comparing web pages.

It might be useful for comparing staging web page to production web page like below.

            

              
              
use Web::Compare;
my $wc = Web::Compare->new(
    'http://staging.example.com/foo/bar',
    'http://production.example.com/foo/bar',
    {
        hook_before => sub {
            my ($self, $req) = @_;
            if ($req->uri =~ /staging\./) {
                $req->authorization_basic('id', 'password');
            }
        },
    }
);
warn $wc->report;
            
          

METHODS

new($left_url, $right_url[, $options_ref])

constractor

$left_url and $right_url is the URL or these should be HTTP::Request object.

$options_ref follows bellow params.

ua

The user agent object what you want.

hook_before

hook_after

There are hooks around the request.

            

              
              
use Web::Compare;
my $wc = Web::Compare->new(
    $lefturl, $righturl, {
        hook_before => sub {
            my ($self, $req) = @_;
            $req->header('X-foo' => 'baz');
        },
        hook_after => sub {
            my ($self, $res, $req) = @_;
            (my $content = $res->content) =~ s!Hello!Hi!;
            return $content;
        },
    },
);
            
          

on_error

When a request was failed, on_error callback is invoked if you set this option as code ref.

            

              
              
use Web::Compare;
use Data::Dumper;
my $wc = Web::Compare->new(
    $lefturl, $righturl, {
        on_error => sub {
            my ($self, $res, $req) = @_;
            warn Dumper($req, $res);
        },
    },
);
            
          

diff

By default, Web::Compare uses Diff::LibXDiff for reporting diff. If you want to use an other diff tool, you'll set diff param as code ref.

            

              
              
use Web::Compare;
use String::Diff qw//;
my $wc = Web::Compare->new(
    $lefturl, $righturl, {
        diff => sub {
            my ($left, $right) = @_;
            String::Diff::diff_merge($left, $right);
        },
    },
);
            
          

report

Send requests and report diff

REPOSITORY

Web::Compare is hosted on github: http://github.com/bayashi/Web-Compare

Welcome your patches and issues :D

AUTHOR

Dai Okabayashi <bayashi@cpan.org>

SEE ALSO

LICENSE

This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic.