X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FIO%2FCompress%2FBrotli.pm;h=ed206a9148bc4cd7b170f843475620174e93ada6;hb=f108816bf7a6803c81d055b35b076b116506e6f0;hp=05651f770e3e0dc96bb19b0c08d873aeb5d28fec;hpb=c4002818175e31a54bd84cac98ac3f82024a8942;p=io-compress-brotli.git diff --git a/lib/IO/Compress/Brotli.pm b/lib/IO/Compress/Brotli.pm index 05651f7..ed206a9 100644 --- a/lib/IO/Compress/Brotli.pm +++ b/lib/IO/Compress/Brotli.pm @@ -5,18 +5,20 @@ use strict; use warnings; use parent qw/Exporter/; +use Carp qw/croak/; + use IO::Uncompress::Brotli; our @EXPORT = qw/bro/; our @EXPORT_OK = @EXPORT; -our $VERSION = '0.003_001'; +our $VERSION = '0.004001'; my %BROTLI_ENCODER_MODE = ( generic => 0, text => 1, font => 2 ); sub mode { my ($self, $mode) = @_; - die "Invalid encoder mode" + croak 'Invalid encoder mode' unless $BROTLI_ENCODER_MODE{$mode}; _mode($$self, $mode) @@ -63,10 +65,12 @@ function. =over -=item B(I<$input>) +=item B(I<$input>, I<$quality>, I<$window>) Takes a whole uncompressed buffer as input and returns the compressed -data. +data using the supplied quality and window parameters. If quality and +window parameters are not supplied, default values are used (as +described under the object-oriented interface). Exported by default. @@ -149,7 +153,7 @@ clean up of the overall project were contributed by: =head1 COPYRIGHT AND LICENSE -Copyright (C) 2015-2017 by Marius Gavrilescu +Copyright (C) 2015-2018 by Marius Gavrilescu This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.20.2 or,