File Coverage

lib/Kwiki/GoogleLink.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Kwiki::GoogleLink;
use strict;
use warnings;
use Kwiki::Plugin '-Base';

our $VERSION = 0.01;

const class_title => 'Google Search Link';
const class_id => 'google_link';

sub register {
    my $registry = shift;
    $registry->add(wafl => google => 'Kwiki::GoogleLink::Wafl');
}

package Kwiki::GoogleLink::Wafl;
use Spoon::Formatter ();
use base 'Spoon::Formatter::WaflPhrase';

const google_search => 'http://www.google.com/search?q=';

sub html {
    my $search = $self->arguments;
    join('',
         '
26
         $self->google_search,
         $self->uri_escape($search), '">',
         $self->html_escape($search), ''
        );
}

1;

__DATA__