Yet Another CPAN Grep

YAML ( I/IN/INGY/YAML-1.31.tar.gz, INGY, 2023; MetaCPAN )

YAML/lib/YAML/Dumper.pm ( view source; MetaCPAN )

$self->{level}--;

    return;
}

sub is_literal_number {
    my $self = shift;
    # Stolen from JSON::Tiny
    return B::svref_2object(\$_[0])->FLAGS & (B::SVp_IOK | B::SVp_NOK)
            && 0 + $