File Coverage

blib/lib/Mojolicious/Plugin/AntiSpamMailTo.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	25	100.0

package Mojolicious::Plugin::AntiSpamMailTo;

use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '1.001003'; # VERSION

use HTML::Entities;

my $email;

sub register {
    my ($self, $app) = @_;

    $app->helper(
        mailto_href => sub {
            shift; # dump the controller
            @_ and $email = shift;
            encode_entities 'mailto:' . $email, '\w\W';
        },
    );

    $app->helper(
        mailto => sub {
            shift; # dump the controller
            @_ and $email = shift;
            # the ''. is to ensure encode_entities doesn't modify
            # email in-place
            encode_entities ''.$email, '\w\W';
        },
    );
}

'
Q: Whats the object-oriented way to become wealthy?
A: Inheritance
';

__END__