view release on metacpan or  search on metacpan

eg/calculator.pl  view on Meta::CPAN

push @grid_btns, [ make_btn( '=', sub { handle_equals() } ), 3, 4, 1 ];
for my $b (@grid_btns) {
    my ( $btn, $col, $row, $xspan ) = @$b;
    $xspan //= 1;
    uiGridAppend( $grid, $btn, $col, $row, $xspan, 1, 1, 0, 1, 0 );
}
#
uiMenuItemOnClicked(
    $mi_copy,
    sub {
        # Copy result to clipboard would go here
        uiMsgBox( $main_win, 'Copy', 'Result: ' . $display_text );
    },
    undef
);
uiMenuItemOnClicked( $mi_clear, sub { handle_clear() }, undef );
uiWindowOnClosing(
    $main_win,
    sub {
        uiQuit();
        return 1;