From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

DMOW / Eludia-10.01.27.cd6c3e5 / Eludia-10.01.27.cd6c3e5 / Eludia / GenericApplication / Presentation / _info.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

              
################################################################################
sub draw__info {
        my ($data) = @_;
         
        push @$data, {                  
                id    => 'JSON module',
                label => $ENV {PERL_JSON_BACKEND} . ' ' . ${"$ENV{PERL_JSON_BACKEND}::VERSION"},
        };
                                                 
        push @$data, {                  
                id    => 'Skin',
                label => $_SKIN,
        };
         
        draw_table (
                 
                [
                        'Component',
                        'Product',
                        'Version',
                        'Location',
                ],
         
                sub {
                 
                        unless ($i -> {path}) {
                         
                                my ($key) = split / /, $i -> {label};
                                $key =~ s{\:\:}{\/}g;
                                $i -> {path} = $INC {$key . '.pm'};
                         
                        }
                         
                        my ($product, $version) = split m{[ /]}, $i -> {label};
                 
                        draw_cells ({}, [                       
                                $i -> {id},
                                {label => $product, max_len => 10000000},
                                {label => $version, max_len => 10000000},
                                {label => $i -> {path}, max_len => 10000000},
                        ])
                         
                },
                 
                $data,
                 
                {               
                         
                        title => {label => 'Version info'},
                         
                        lpt => 1,
                         
                },
         
        );
         
}
1;