File Coverage

blib/lib/Moxy/Plugin/LocationBar.pm

Criterion	Covered	Total	%
statement	18	28	64.2
branch	0	4	0.0
condition	0	2	0.0
subroutine	6	8	75.0
pod	0	2	0.0
total	24	44	54.5

package Moxy::Plugin::LocationBar;
use strict;
use warnings;
use base qw/Moxy::Plugin/;
use Carp;
use HTML::Entities;

sub render_location_bar : Hook {
    my ($self, $context, $args) = @_;
    croak "invalid args" if ref $args ne 'HASH';
    return unless (($args->{response}->header('Content-Type')||'') =~ /html/);

    my $content = $args->{response}->content;
    my $bar = render_control_panel($args->{response}->request->uri);
    $content =~ s!()!"$1$bar"!ie;
    $args->{response}->content( $content );
}

sub render_control_panel {
    my $current_url = shift;

    return sprintf(<<"...", encode_entities($current_url));
     </td>
</tr>

<tr>
<td  class="h" >
<a name="24">24</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">         var moxy_base = location.protocol.replace(':', '') + '://' + location.host; </td>
</tr>

<tr>
<td  class="h" >
<a name="25">25</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s">




...
}

1;