


=encoding UTF-8

=head1 NAME

WWW::CheckGzip - abstract here.

=head1 SYNOPSIS

    
    use Test::More;
    use WWW::CheckGzip;
    my $wc = WWW::CheckGzip->new (\& mycheck);
    $wc->check ('http://www.piedpiper.com');
    done_testing ();
    
    sub mycheck
    {
        my ($ok, $message) = @_;
        ok ($ok, $message);
    }


produces output

    ok 1 - successfully got compressed http://www.piedpiper.com
    ok 2 - got content encoding
    ok 3 - content encoding is gzip
    ok 4 - http://www.piedpiper.com correctly gzipped
    ok 5 - compression made it smaller
    ok 6 - successfully got uncompressed http://www.piedpiper.com
    ok 7 - Did not get content encoding
    ok 8 - http://www.piedpiper.com not gzipped when requesting ungzipped
    1..8


(This example is included as L<F<synopsis.pl>|https://fastapi.metacpan.org/source/BKB/WWW-CheckGzip-0.01/examples/synopsis.pl> in the distribution.)


=head1 VERSION

This documents version 0.01 of WWW::CheckGzip corresponding to
L<git commit 487a9aa5cbe499ddbe17ee94a3d94af01d1d4de9|https://github.com/benkasminbullock/www-checkgzip/commit/487a9aa5cbe499ddbe17ee94a3d94af01d1d4de9> released on Wed Aug 16 17:26:43 2017 +0900.

=head1 DESCRIPTION

Check a web page for gzip compression.

=head1 METHODS

=head2 new

    my $wc = WWW::CheckGzip->new (\& test_sub);

Create a new object.

=head2 check

    $wc->check ('http://www.hooli.xyz');

Check the URL.

=head1 DEPENDENCIES

=over

=item L<Carp>

=item L<Gzip::Faster>

=item L<LWP::UserAgent>

=back


=head1 AUTHOR

Ben Bullock, <bkb@cpan.org>

=head1 COPYRIGHT & LICENCE

This package and associated files are copyright (C) 
2017
Ben Bullock.

You can use, copy, modify and redistribute this package and associated
files under the Perl Artistic Licence or the GNU General Public
Licence.



