-sub create {
- my ($class) = @_;
- my $state = BrotliDecoderCreateInstance();
- bless \$state, $class
-}
-
-sub DESTROY {
- my ($self) = @_;
- BrotliDecoderDestroyInstance($$self)
-}
-
-sub decompress {
- my ($self, $data) = @_;
- BrotliDecoderDecompressStream($$self, $data)
-}
-
-# Untested, probably not working
-sub set_dictionary {
- my ($self, $dict) = @_;
- BrotliSetCustomDictionary($$self, $dict)
-}
-