package Form::Processor::Field::Month; $Form::Processor::Field::Month::VERSION = '1.162360'; use strict; use warnings; use base 'Form::Processor::Field::IntRange'; sub init_range_start {1} sub init_range_end {12} # ABSTRACT: Select list of 1 to 12 1; __END__ =pod =encoding UTF-8 =head1 NAME Form::Processor::Field::Month - Select list of 1 to 12 =head1 VERSION version 1.162360 =head1 SYNOPSIS See L =head1 DESCRIPTION Select list for range of 1 to 12. =head2 Widget Fields can be given a widget type that is used as a hint for the code that renders the field. This field's widget type is: "select". =head2 Subclass Fields may inherit from other fields. This field inherits from: "IntRange". =head1 SUPPORT / WARRANTY L is free software and is provided WITHOUT WARRANTY OF ANY KIND. Users are expected to review software for fitness and usability. =head1 AUTHOR Bill Moseley =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2012 by Bill Moseley. 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