-=method new
-
- $fh = File::KDBX::IO::HmacBlock->new(%attributes);
- $fh = File::KDBX::IO::HmacBlock->new($fh, %attributes);
-
-Construct a new HMAC-block stream IO handle.
-
-=cut
-
-sub new {
- assert_64bit;
-
- my $class = shift;
- my %args = @_ % 2 == 1 ? (fh => shift, @_) : @_;
- my $self = $class->SUPER::new;
- $self->_fh($args{fh}) or throw 'IO handle required';
- $self->key($args{key}) or throw 'Key required';
- $self->block_size($args{block_size});
- $self->_buffer;
- return $self;
-}
-