like $warning, qr/detected deep recursion/i, 'Deep recursion causes a warning'
or diag 'Warnings: ', explain $warning;
is $recursive, $recursive_expected, 'Recursive placeholders resolve to... something';
{
my $entry = File::KDBX::Entry->new(url => 'http://example.com?{EXPLODE}');
like $warning, qr/detected deep recursion/i, 'Deep recursion causes a warning'
or diag 'Warnings: ', explain $warning;
is $recursive, $recursive_expected, 'Recursive placeholders resolve to... something';
{
my $entry = File::KDBX::Entry->new(url => 'http://example.com?{EXPLODE}');