package Form::Processor::Field::Weekday; $Form::Processor::Field::Weekday::VERSION = '1.162360'; use strict; use warnings; use base 'Form::Processor::Field::Select'; sub init_options { my $i = 0; my @days = qw/ Sunday Monday Tuesday Wednesday Thursday Friday Saturday /; return [ map { { value => $i++, label => $_ } } @days ]; } # ABSTRACT: Select valid day of the week 1; __END__ =pod =encoding UTF-8 =head1 NAME Form::Processor::Field::Weekday - Select valid day of the week =head1 VERSION version 1.162360 =head1 SYNOPSIS See L =head1 DESCRIPTION Creates an option list for the days of the week. =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: "Select". =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