File Coverage

blib/lib/Tapper/Reports/Web/View/Mason.pm
Criterion Covered Total %
statement 12 17 70.5
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 23 69.5


line stmt bran cond sub pod time code
1             package Tapper::Reports::Web::View::Mason;
2             our $AUTHORITY = 'cpan:TAPPER';
3             $Tapper::Reports::Web::View::Mason::VERSION = '5.0.15';
4 12     12   102700 use Moose;
  12         472289  
  12         84  
5 12     12   75901 use namespace::autoclean;
  12         8283  
  12         117  
6             extends 'Catalyst::View::HTML::Mason';
7              
8 12     12   1225 use Cwd;
  12         68  
  12         864  
9 12     12   582 use File::ShareDir ':ALL';
  12         21209  
  12         4688  
10              
11             my $s_root_dir = $ENV{DOCUMENT_ROOT} || Cwd::getcwd . '/root';
12              
13             my $root_dir = [
14             [ tapperroot1 => $s_root_dir ],
15             [ tapperroot2 => eval { dist_dir("Tapper-Reports-Web") } || $s_root_dir ],
16             ];
17              
18             __PACKAGE__->config({ template_extension => '.mas',
19             globals => [['$c' => sub { $_[1] } ]],
20             interp_args => { comp_root => $root_dir,
21             default_escape_flags => [ 'h' ],
22             escape_flags => {
23             url => \&my_url_filter,
24             h => \&HTML::Mason::Escapes::basic_html_escape,
25             },
26             },
27             });
28              
29             sub my_url_filter
30             {
31 0     0 0   my $text_ref = shift;
32 0           my $kopie = $$text_ref;
33 0           Encode::_utf8_off($kopie); # weil URI::URL mit utf8-Flag das falsche macht
34 0           $$text_ref = URI::URL->new($kopie)->as_string;
35 0           $$text_ref =~ s,/,%2F,g;
36             }
37              
38              
39             1;
40              
41             # Local Variables:
42             # buffer-file-coding-system: utf-8
43             # End:
44              
45             __END__
46              
47             =pod
48              
49             =encoding UTF-8
50              
51             =head1 NAME
52              
53             Tapper::Reports::Web::View::Mason
54              
55             =head1 SYNOPSIS
56              
57             Very simple to use
58              
59             =head1 DESCRIPTION
60              
61             Very nice component.
62              
63             =head1 NAME
64              
65             Tapper::Reports::Web::View::Mason - Mason View Component
66              
67             =head1 AUTHOR
68              
69             Clever guy
70              
71             =head1 LICENSE
72              
73             This library is free software . You can redistribute it and/or modify it under
74             the same terms as perl itself.
75              
76             =head1 AUTHORS
77              
78             =over 4
79              
80             =item *
81              
82             AMD OSRC Tapper Team <tapper@amd64.org>
83              
84             =item *
85              
86             Tapper Team <tapper-ops@amazon.com>
87              
88             =back
89              
90             =head1 COPYRIGHT AND LICENSE
91              
92             This software is Copyright (c) 2020 by Advanced Micro Devices, Inc..
93              
94             This is free software, licensed under:
95              
96             The (two-clause) FreeBSD License
97              
98             =cut