File Coverage

blib/lib/Mail/LMLM/Types/Ezmlm.pm
Criterion Covered Total %
statement 12 46 26.0
branch 0 2 0.0
condition n/a
subroutine 4 14 28.5
pod 6 6 100.0
total 22 68 32.3


line stmt bran cond sub pod time code
1             package Mail::LMLM::Types::Ezmlm;
2             $Mail::LMLM::Types::Ezmlm::VERSION = '0.6807';
3 1     1   7 use strict;
  1         2  
  1         32  
4 1     1   5 use warnings;
  1         4  
  1         25  
5              
6 1     1   440 use Mail::LMLM::Types::Base;
  1         3  
  1         33  
7              
8 1     1   8 use vars qw(@ISA);
  1         2  
  1         416  
9              
10             @ISA = qw(Mail::LMLM::Types::Base);
11              
12             sub group_form
13             {
14 0     0 1   my $self = shift;
15              
16 0           my $add = shift;
17              
18 0 0         return ( ( $self->get_group_base() . ( $add ? ( "-" . $add ) : "" ) ),
19             $self->get_hostname() );
20             }
21              
22             sub _get_subscribe_address
23             {
24 0     0     my $self = shift;
25              
26 0           return $self->group_form("subscribe");
27             }
28              
29             sub _get_unsubscribe_address
30             {
31 0     0     my $self = shift;
32              
33 0           return $self->group_form("unsubscribe");
34             }
35              
36             sub _get_post_address
37             {
38 0     0     my $self = shift;
39              
40 0           return $self->group_form();
41             }
42              
43             sub _get_owner_address
44             {
45 0     0     my $self = shift;
46              
47 0           return $self->group_form("owner");
48             }
49              
50             sub render_something_with_email_addr
51             {
52 0     0 1   my $self = shift;
53              
54 0           my $htmler = shift;
55 0           my $begin_msg = shift;
56 0           my $address_method = shift;
57              
58 0           $htmler->para($begin_msg);
59 0           $htmler->indent_inc();
60 0           $htmler->start_para();
61 0           $htmler->email_address( $self->$address_method() );
62 0           $htmler->end_para();
63 0           $htmler->indent_dec();
64              
65 0           return 0;
66             }
67              
68             sub render_subscribe
69             {
70 0     0 1   my $self = shift;
71              
72 0           my $htmler = shift;
73              
74 0           return $self->render_something_with_email_addr( $htmler,
75             "Send an empty mail message to the following address: ",
76             \&_get_subscribe_address );
77             }
78              
79             sub render_unsubscribe
80             {
81 0     0 1   my $self = shift;
82              
83 0           my $htmler = shift;
84              
85 0           return $self->render_something_with_email_addr( $htmler,
86             "Send an empty mail message to the following address: ",
87             \&_get_unsubscribe_address );
88             }
89              
90             sub render_post
91             {
92 0     0 1   my $self = shift;
93              
94 0           my $htmler = shift;
95              
96 0           return $self->render_something_with_email_addr( $htmler,
97             "Send your messages to the following address: ",
98             \&_get_post_address );
99             }
100              
101             sub render_owner
102             {
103 0     0 1   my $self = shift;
104              
105 0           my $htmler = shift;
106              
107 0           return $self->render_something_with_email_addr( $htmler,
108             "Send messages to the mailing-list owner to the following address: ",
109             \&_get_owner_address );
110             }
111              
112             1;
113              
114             __END__