File Coverage

blib/lib/Mail/LMLM/Render.pm
Criterion Covered Total %
statement 12 34 35.2
branch 0 2 0.0
condition n/a
subroutine 4 7 57.1
pod 3 3 100.0
total 19 46 41.3


line stmt bran cond sub pod time code
1             package Mail::LMLM::Render;
2             $Mail::LMLM::Render::VERSION = '0.6807';
3 1     1   7 use strict;
  1         1  
  1         29  
4 1     1   5 use warnings;
  1         1  
  1         27  
5              
6 1     1   6 use vars qw(@ISA);
  1         1  
  1         35  
7              
8 1     1   6 use Mail::LMLM::Object;
  1         2  
  1         252  
9              
10             @ISA = qw(Mail::LMLM::Object);
11              
12             sub para
13             {
14 0     0 1   my $self = shift;
15              
16 0           $self->start_para();
17 0           $self->text(@_);
18 0           $self->end_para();
19              
20 0           return 0;
21             }
22              
23             sub url
24             {
25 0     0 1   my $self = shift;
26              
27 0           my $url = shift;
28              
29 0           my $inside;
30              
31 0 0         if ( scalar(@_) )
32             {
33 0           $inside = shift;
34             }
35             else
36             {
37 0           $inside = $url;
38             }
39              
40 0           $self->start_link($url);
41 0           $self->text($inside);
42 0           $self->end_link();
43              
44 0           return 0;
45             }
46              
47             sub email_address
48             {
49 0     0 1   my $self = shift;
50              
51 0           my $account = shift;
52 0           my $host = shift;
53              
54 0           $self->start_link("mailto:$account\@$host");
55 0           $self->text("$account\@$host");
56 0           $self->end_link();
57              
58 0           return 0;
59             }
60              
61             1;
62              
63             __END__