File Coverage

blib/lib/Text/AutoLink/Plugin/FTP.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Text::AutoLink::Plugin::FTP;
2 2     2   39 use strict;
  2         4  
  2         79  
3 2     2   11 use warnings;
  2         4  
  2         75  
4 2     2   11 use base qw(Text::AutoLink::Plugin);
  2         4  
  2         425  
5              
6             sub process
7             {
8 9     9 1 13 my $self = shift;
9 9         11 my $ref = shift;
10 9         47 $$ref =~ s/(ftp:\/\/[A-Za-z0-9~\/._\?\&=\-%#\+:\;,\@\']+)/
11 1         17 $self->linkfy(href => $1);
12             /gex;
13             }
14              
15             1;
16              
17             =head1 NAME
18              
19             Text::AutoLink::Plugin::FTP - AutoLink FTP
20              
21             =cut