File Coverage

blib/lib/Compress/Stream/Zstd/CompressionDictionary.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	5	5	100.0
pod	1	1	100.0
total	25	27	92.5

package Compress::Stream::Zstd::CompressionDictionary;
use 5.008001;
use strict;
use warnings;

use Compress::Stream::Zstd ();

sub new_from_file {
    my ($class, $file, $level) = @_;
    open my $fh, '<', $file or die $!;
    local $/;
    my $dict = <$fh>;
    close $fh;
    $class->new($dict, $level || 1);
}

1;
__END__