package File::KDBX::Util;
# ABSTRACT: Utility functions for working with KDBX files
+use 5.010;
use warnings;
use strict;
use Module::Load;
use Ref::Util qw(is_arrayref is_coderef is_hashref is_ref is_refref is_scalarref);
use Scalar::Util qw(blessed looks_like_number readonly);
-use Time::Piece;
+use Time::Piece 1.33;
use boolean;
use namespace::clean -except => 'import';
require Config;
if ($Config::Config{ivsize} < 8) {
if (blessed $num && $num->can('as_hex')) {
+ require Math::BigInt;
return "\xff\xff\xff\xff\xff\xff\xff\xff" if Math::BigInt->new('18446744073709551615') <= $num;
return "\x00\x00\x00\x00\x00\x00\x00\x80" if $num <= Math::BigInt->new('-9223372036854775808');
my $neg;