File Coverage

blib/lib/Mojolicious/Plugin/AntiSpamMailTo.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 17 17 100.0


line stmt bran cond sub pod time code
1             package Mojolicious::Plugin::AntiSpamMailTo;
2              
3 2     2   59859 use Mojo::Base 'Mojolicious::Plugin';
  2         7  
  2         16  
4              
5             our $VERSION = '1.001002'; # VERSION
6              
7 2     2   3174 use HTML::Entities;
  2         15786  
  2         703  
8              
9             sub register {
10 1     1 1 77 my ($self, $app) = @_;
11              
12             $app->helper(
13             mailto_href => sub {
14 1     1   44001 encode_entities 'mailto:' . $_[1], '\w\W';
15             },
16 1         14 );
17              
18             $app->helper(
19             mailto => sub {
20 1     1   410 encode_entities $_[1], '\w\W';
21             },
22 1         143 );
23             }
24              
25             '
26             Q: Whats the object-oriented way to become wealthy?
27             A: Inheritance
28             ';
29              
30             __END__