package Gapp::Meta::Attribute::Trait::DefaultWidget; { $Gapp::Meta::Attribute::Trait::DefaultWidget::VERSION = '0.483'; } use Moose::Role; before '_process_options' => sub { my $class = shift; my $name = shift; my $options = shift; $options->{handles} = [qw( destroy hide show show_all signal_connect signal_emit )], }; package Moose::Meta::Attribute::Custom::Trait::DefaultWidget; { $Moose::Meta::Attribute::Custom::Trait::DefaultWidget::VERSION = '0.483'; } sub register_implementation { 'Gapp::Meta::Attribute::Trait::DefaultWidget' }; 1;