Add function for creating class attributes

[chaz/p5-File-KDBX] / lib / File / KDBX / IO.pm

diff --git a/lib/File/KDBX/IO.pm b/lib/File/KDBX/IO.pm
index 5d183473b656199a011202782721db69f1f6f98e..4d6009ddf84e84734fecb931523dd531d4758fae 100644 (file)
--- a/lib/File/KDBX/IO.pm
+++ b/lib/File/KDBX/IO.pm
@@ -5,13 +5,14 @@ use warnings;
 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
 
@@ -43,6 +44,7 @@ sub new {
 
 sub DESTROY {
     return if in_global_destruction;
+    local ($., $@, $!, $^E, $?);
     my $self = shift;
     $self->close;
 }