The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;