From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
$HTML::FormFu::Element::Number::VERSION = '2.07';
# ABSTRACT: Number element with formatting
use Moose;
after BUILD => sub {
my $self = shift;
$self->deflator('FormatNumber');
$self->filter('FormatNumber');
return;
};
sub precision {
my $self = shift;
return $self->get_deflator( { type => 'FormatNumber' } )->precision(@_);
}
sub trailing_zeroes {
my $self = shift;
return $self->get_deflator( { type => 'FormatNumber' } )
->trailing_zeroes(@_);
}
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
HTML::FormFu::Element::Number - Number element with formatting
=head1 VERSION
version 2.07
=head1 SYNOPSIS
---
elements:
- type: Number
locale: de_DE
precision: 2
trailing_zeroes: 1
=head1 DESCRIPTION
This element formats numbers according to the current locale. You can set this
locale either by setting C<< $form->locale >> or by setting the element's
locale. If none of them is set the element uses the system's locale.
=head1 METHODS
=head2 locale
Set the locale for this element. The format of the number is chosen according
to this locale.
=head2 precision
Set the precision for the number. Defaults to C<2>.
=head2 trailing_zeroes
If this is set to C<1> the number has trailing zeroes. Defaults to C<0>.
=head2 CHANGED BEHAVIOUR AS OF VERSION 0.09011
Previous to version 0.09011, this element generated an input field with
C<type="number"> attribute which was not valid xhtml.
Neither was the formatted numbers valid html5 - which expects the value to
be a floating-point number.
This element now generates a C<type="text"> attribute.
=head1 SEE ALSO
L<HTML::FormFu::Deflator::FormatNumber>
L<HTML::FormFu::Filter::FormatNumber>
L<HTML::FormFu/locale>
=head1 AUTHOR
Moritz Onken C< onken at houseofdesign.de >
=head1 AUTHOR
Carl Franks <cpan@fireartist.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2018 by Carl Franks.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut