The POD for Number::Format mentions a format_negative function. I don't think format_number handles negative numbers, by design.

UPDATE: Nevermind... this prints a negative value:

print Number::Format::format_number(-0.0004,5)
[download]