X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FIO%2FCompress%2FBrotli.pm;h=80a7b703fd078cb9db2ef7043761188a7d031e10;hb=406e6fed78dda26e5037587c9c767f88b09a78cc;hp=839c67b760d60ed4dde1afb97c77735ae0b12c3c;hpb=20a72cf897babf49df91f9a43ed05c4f40911a68;p=io-compress-brotli.git diff --git a/lib/IO/Compress/Brotli.pm b/lib/IO/Compress/Brotli.pm index 839c67b..80a7b70 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.002001'; +our $VERSION = '0.004_002'; 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-2016 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,