The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

DMOW / Eludia-10.01.27.cd6c3e5 / Eludia-10.01.27.cd6c3e5 / Eludia / GenericApplication / Presentation / _benchmarks.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85

              
################################################################################
sub draw__benchmarks {
         
        my ($data) = @_;
        return
                draw_table (
                        [
                                {label => 'name',  href => {order => 'name'}},
                                {label => 'count', href => {order => 'cnt'}},
                                {label => 'time, ms',  href => {order => 'ms'}},
                                {label => 'mean, ms',  href => {order => 'mean'}},
                                {label => 'total selected',  href => {order => 'selected'}},
                                {label => 'mean selected',  href => {order => 'mean_selected'}},
                        ],
                        sub {
                                draw_cells ({
                                }, [
                                        $i -> {label},
                                        {
                                                label   => $i -> {cnt},
                                                picture => '### ### ### ###',
                                        },
                                        {
                                                label   => $i -> {ms},
                                                picture => '### ### ### ###',
                                        },
                                        {
                                                label   => $i -> {mean},
                                                picture => '### ### ### ###',
                                        },
                                        {
                                                label   => $i -> {selected},
                                                picture => '### ### ### ###',
                                        },
                                        {
                                                label   => $i -> {mean_selected},
                                                picture => '### ### ### ###',
                                        },
                                ])
                        },
                        $data -> {_benchmarks},
                        {
                                title => {label => 'Benchmarks'},
                                top_toolbar => [{
                                                        keep_params => ['type', 'select'],
                                                },
                                        {
                                                icon    => 'delete',
                                                label   => '&Flush',
                                                href    => '?type=_benchmarks&action=flush',
                                                target  => 'invisible',
                                                confirm => 'Are you sure?',
                                        },
                                        {
                                                type        => 'input_text',
                                                icon        => 'tv',
                                                name        => 'q',
                                                keep_params => [],
                                        },
                                        {
                                                type    => 'pager',
                                                cnt     => 0 + @{$data -> {_benchmarks}},
                                                total   => $data -> {cnt},
                                                portion => $data -> {portion},
                                        },
                                ],
                                 
                        }
                         
                );
}