/usr/local/CPAN/Net-FluidDB/Net/FluidDB/Value/Integer.pm

• package Net::FluidDB::Value::Integer
  • to_json
• EOF

package Net::FluidDB::Value::Integer;
use Moose;
extends 'Net::FluidDB::Value::Native';

# A Perl integer is a JSON integer. Sanitize with int().
sub to_json {
    my $self = shift;
    no warnings; # the value may not be an integer indeed
    int $self->value;
}

no Moose;
__PACKAGE__->meta->make_immutable;

1;