File Coverage

blib/lib/Compress/Stream/Zstd/DecompressionDictionary.pm
Criterion Covered Total %
statement 17 17 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 24 25 96.0


line stmt bran cond sub pod time code
1             package Compress::Stream::Zstd::DecompressionDictionary;
2 1     1   426 use 5.008001;
  1         3  
3 1     1   5 use strict;
  1         2  
  1         29  
4 1     1   6 use warnings;
  1         18  
  1         28  
5              
6 1     1   5 use Compress::Stream::Zstd ();
  1         2  
  1         104  
7              
8             sub new_from_file {
9 1     1 1 1395 my ($class, $file) = @_;
10 1 50       43 open my $fh, '<', $file or die $!;
11 1         6 local $/;
12 1         231 my $dict = <$fh>;
13 1         14 close $fh;
14 1         172 $class->new($dict);
15             }
16              
17             1;
18             __END__