[Jifty-commit] r7167 - jifty/trunk/lib/Jifty/Web/Form
Jifty commits
jifty-commit at lists.jifty.org
Tue Jun 2 16:47:32 EDT 2009
Author: sartak
Date: Tue Jun 2 16:47:32 2009
New Revision: 7167
Modified:
jifty/trunk/lib/Jifty/Web/Form/Field.pm
Log:
Eliminate some hilarious almost-duplication
Modified: jifty/trunk/lib/Jifty/Web/Form/Field.pm
==============================================================================
--- jifty/trunk/lib/Jifty/Web/Form/Field.pm (original)
+++ jifty/trunk/lib/Jifty/Web/Form/Field.pm Tue Jun 2 16:47:32 2009
@@ -119,21 +119,22 @@
=cut
+my @new_fields = qw(
+ name type sticky sticky_value default_value action
+ mandatory ajax_validates ajax_canonicalizes autocompleter preamble hints
+ placeholder focus render_mode display_length max_length _element_id
+ disable_autocomplete multiple
+);
+
+my @semiexposed_fields = qw(
+ label input_name
+);
+
sub accessors {
- shift->SUPER::accessors(), qw(name label input_name type
- sticky sticky_value default_value action mandatory ajax_validates
- ajax_canonicalizes autocompleter preamble hints placeholder focus
- render_mode display_length max_length _element_id disable_autocomplete
- multiple);
+ shift->SUPER::accessors(), @new_fields, @semiexposed_fields;
}
-__PACKAGE__->mk_accessors(
- qw(name _label _input_name type sticky sticky_value
- default_value mandatory ajax_validates ajax_canonicalizes
- autocompleter preamble hints placeholder focus render_mode
- display_length max_length _element_id disable_autocomplete
- multiple)
-);
+__PACKAGE__->mk_accessors(@new_fields, map { "_$_" } @semiexposed_fields);
=head2 name [VALUE]
More information about the Jifty-commit
mailing list