File Coverage

blib/lib/Pod/Simple/Role/XHTML/WithLinkMappings.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Pod::Simple::Role::XHTML::WithLinkMappings;
2 1     1   82519 use Moo::Role;
  1         2  
  1         5  
3              
4             our $VERSION = '0.003002';
5             $VERSION =~ tr/_//d;
6              
7 1     1   291 use HTML::Entities qw(decode_entities encode_entities);
  1         9  
  1         51  
8 1     1   338 use URL::Encode qw(url_encode_utf8);
  1         4046  
  1         46  
9              
10 1     1   360 use namespace::clean;
  1         8918  
  1         4  
11              
12             has link_mappings => ( is => 'rw' );
13              
14             around resolve_pod_page_link => sub {
15             my $orig = shift;
16             my $self = shift;
17             my $module = shift;
18             if (defined $module) {
19             my $link_map = $self->link_mappings || {};
20             my $link = $link_map->{$module};
21             $module = $link
22             if defined $link;
23             }
24             $self->$orig($module, @_);
25             };
26              
27             1;
28             __END__