-=method new
-
- $fh = File::KDBX::IO::Crypt->new(%attributes);
- $fh = File::KDBX::IO::Crypt->new($fh, %attributes);
-
-Construct a new crypto IO handle.
-
-=cut
-
-sub new {
- my $class = shift;
- my %args = @_ % 2 == 1 ? (fh => shift, @_) : @_;
- my $self = $class->SUPER::new;
- $self->_fh($args{fh}) or throw 'IO handle required';
- $self->cipher($args{cipher}) or throw 'Cipher required';
- return $self;
-}
-