package Gapp::Actions::Test; use Gapp::Actions -declare => [qw( New Edit Delete )]; action New => ( label => 'New', tooltip => 'New', icon => 'gtk-new', code => sub { ${$_[1]} = 1; }, ); action Edit => ( label => 'Edit', tooltip => 'Edit', icon => 'gtk-edit', code => sub { ${$_[1]} = 2; }, ); action Delete => ( label => 'Delete', tooltip => 'Delete', icon => 'gtk-delete', code => sub { ${$_[1]} = 3; }, ); 1;