X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FIO%2FCompress%2FBrotli.pm;h=80a7b703fd078cb9db2ef7043761188a7d031e10;hb=406e6fed78dda26e5037587c9c767f88b09a78cc;hp=f1b76e219a29dd6dcfa03360a68959caa8c7af33;hpb=593b81c0d82458c00172fac374508871d21da050;p=io-compress-brotli.git diff --git a/lib/IO/Compress/Brotli.pm b/lib/IO/Compress/Brotli.pm index f1b76e2..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.004001'; +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)