use strict;
use Devel::GlobalDestruction;
-use File::KDBX::Util qw(:empty :bool);
+use File::KDBX::Constants qw(:bool);
+use File::KDBX::Util qw(:class :empty);
use List::Util qw(sum0);
use Ref::Util qw(is_blessed_ref is_ref is_scalarref);
use Symbol qw(gensym);
use namespace::clean;
-use parent 'IO::Handle';
+extends 'IO::Handle';
our $VERSION = '999.999'; # VERSION
sub DESTROY {
return if in_global_destruction;
+ local ($., $@, $!, $^E, $?);
my $self = shift;
$self->close;
}
my $indented_method = (' ' x $debug{level}) . $method;
my $self = shift;
print STDERR sprintf('%-20s -> %s (%s)', $indented_method, $self,
- join(', ', map { defined ? substr($_, 0, 16) : 'undef' } @_)), "\n";
+ join(', ', map { defined $_ ? substr($_, 0, 16) : 'undef' } @_)), "\n";
my $r = $orig->($self, @_) // 'undef';
print STDERR sprintf('%-20s <- %s [%s]', $indented_method, $self, $r), "\n";
return $r;