File Coverage

blib/lib/IO/Compress/Brotli.pm
Criterion Covered Total %
statement 17 20 85.0
branch 0 2 0.0
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 24 30 80.0


line stmt bran cond sub pod time code
1             package IO::Compress::Brotli;
2              
3 2     2   118783 use 5.014000;
  2         13  
4 2     2   10 use strict;
  2         3  
  2         41  
5 2     2   9 use warnings;
  2         2  
  2         52  
6 2     2   680 use parent qw/Exporter/;
  2         483  
  2         9  
7              
8 2     2   93 use Carp qw/croak/;
  2         4  
  2         71  
9              
10 2     2   647 use IO::Uncompress::Brotli;
  2         4  
  2         262  
11              
12             our @EXPORT = qw/bro/;
13             our @EXPORT_OK = @EXPORT;
14              
15             our $VERSION = '0.004_002';
16              
17             my %BROTLI_ENCODER_MODE = ( generic => 0, text => 1, font => 2 );
18             sub mode {
19 0     0 1   my ($self, $mode) = @_;
20              
21             croak 'Invalid encoder mode'
22 0 0         unless $BROTLI_ENCODER_MODE{$mode};
23              
24 0           _mode($$self, $mode)
25             }
26              
27              
28             1;
29             __END__