package TestApp::Feature::Control::CapitalizeLabel;
use Moose;
with qw(
Form::Factory::Feature
Form::Factory::Feature::Role::BuildControl
Form::Factory::Feature::Role::Control
);
sub check_control { }
sub build_control {
my ($class, $options, $action, $name, $control) = @_;
$control->{options}{label} = uc $control->{options}{label};
}
package Form::Factory::Feature::Control::Custom::CapitalizeLabel;
sub register_implementation { 'TestApp::Feature::Control::CapitalizeLabel' }
1;