File Coverage

blib/lib/Text/Livedoor/Wiki/Plugin/Inline/Email.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Text::Livedoor::Wiki::Plugin::Inline::Email;
2              
3 10     10   88 use warnings;
  10         19  
  10         445  
4 10     10   50 use strict;
  10         17  
  10         317  
5 10     10   49 use base qw(Text::Livedoor::Wiki::Plugin::Inline);
  10         16  
  10         707  
6              
7             __PACKAGE__->regex(q{([a-zA-Z0-9_\-\.]+\@[a-zA-Z0-9_\-\.]+)});
8             __PACKAGE__->n_args(1);
9              
10             sub process {
11 1     1 1 3 my ( $class , $inline , $email ) = @_;
12 1         6 return (qq{$email});
13             }
14              
15             1;
16              
17             =head1 NAME
18              
19             Text::Livedoor::Wiki::Plugin::Inline::Email - Email Inline Plugin
20              
21             =head1 DESCRIPTION
22              
23             make clickable email text
24              
25             =head1 SYNOPSIS
26              
27             polocky@livedoor.com
28              
29             =head1 FUNCTION
30              
31             =head2 process
32              
33             =head1 AUTHOR
34              
35             polocky
36              
37             =cut