package Froody::Argument::Number;

use strict;
use warnings;

use base 'Froody::Argument';

sub type { 'number' }

sub process {
  my ($class, $param, $check) = @_;
  $check->( 0 , "not a number")
    unless $param =~ m/^\d*$/;
  return $param;
}

1;

=head1 NAME

Froody::Argument::Number - Froody argument type handler for numeric arguments

=head1 AUTHORS

Copyright Fotango 2006.  All rights reserved.

Please see the main L<Froody> documentation for details of who has worked
on this project.

This module is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.

=cut