X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FIO%2FCompress%2FBrotli.pm;h=4692b983e6d36fbf41810088727611fd63eb5c37;hb=5b02a525718a9d2b82f1f5d15b5edd8dcf82f29a;hp=694a04b301dc48a66aa205f045d1816d1a0afb1d;hpb=795dca1213700340e628c8bcd9669ddccf0e1dea;p=io-compress-brotli.git diff --git a/lib/IO/Compress/Brotli.pm b/lib/IO/Compress/Brotli.pm index 694a04b..4692b98 100644 --- a/lib/IO/Compress/Brotli.pm +++ b/lib/IO/Compress/Brotli.pm @@ -3,15 +3,14 @@ package IO::Compress::Brotli; use 5.014000; use strict; use warnings; +use parent qw/Exporter/; use IO::Uncompress::Brotli; -use parent qw/Exporter/; - our @EXPORT = qw/bro/; our @EXPORT_OK = @EXPORT; -our $VERSION = '0.001001'; +our $VERSION = '0.004'; my %BROTLI_ENCODER_MODE = ( generic => 0, text => 1, font => 2 ); sub mode { @@ -23,25 +22,6 @@ sub mode { _mode($$self, $mode) } -use constant { - BROTLI_OPERATION_PROCESS => 0, - BROTLI_OPERATION_FLUSH => 1, - BROTLI_OPERATION_FINISH => 2 -}; -sub compress { - my ($self, $data) = @_; - $self->_compress($data, BROTLI_OPERATION_PROCESS ) -} - -sub flush { - my ($self) = @_; - $self->_compress('', BROTLI_OPERATION_FLUSH ) -} - -sub finish { - my ($self) = @_; - $self->_compress('', BROTLI_OPERATION_FINISH ) -} 1; __END__ @@ -152,9 +132,24 @@ Brotli source code: L Marius Gavrilescu, Emarius@ieval.roE +The encoder bindings, modernisation of the decoder bindings and a +clean up of the overall project were contributed by: + +=over + +=item Quim Rovira, Equim@rovira.catE + +=item Ævar Arnfjörð Bjarmason, Eavarab@gmail.comE + +=item Marcell Szathmári + +=item Mattia Barbon, Emattia@barbon.orgE + +=back + =head1 COPYRIGHT AND LICENSE -Copyright (C) 2015 by Marius Gavrilescu +Copyright (C) 2015-2017 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,