File Coverage

blib/lib/Mail/LMLM/Types/Listserv.pm
Criterion Covered Total %
statement 12 43 27.9
branch n/a
condition n/a
subroutine 4 11 36.3
pod 5 5 100.0
total 21 59 35.5


line stmt bran cond sub pod time code
1             package Mail::LMLM::Types::Listserv;
2             $Mail::LMLM::Types::Listserv::VERSION = '0.6807';
3 1     1   7 use strict;
  1         2  
  1         29  
4 1     1   5 use warnings;
  1         2  
  1         25  
5              
6 1     1   5 use Mail::LMLM::Types::Base;
  1         2  
  1         20  
7              
8 1     1   5 use vars qw(@ISA);
  1         2  
  1         381  
9              
10             @ISA = qw(Mail::LMLM::Types::Base);
11              
12             sub _get_post_address
13             {
14 0     0     my $self = shift;
15              
16 0           return ( $self->get_group_base(), $self->get_hostname() );
17             }
18              
19             sub _get_owner_address
20             {
21 0     0     my $self = shift;
22              
23 0           return ( ( 'owner-' . $self->get_group_base() ), $self->get_hostname() );
24             }
25              
26             sub render_mail_management
27             {
28 0     0 1   my $self = shift;
29              
30 0           my $htmler = shift;
31 0           my $begin_msg = shift;
32 0           my $line_prefix = shift;
33              
34 0           $htmler->para(
35             $begin_msg . " write a message with the following line as body:" );
36 0           $htmler->indent_inc();
37 0           $htmler->para( ( $line_prefix . " " . $self->get_group_base() ),
38             { 'bold' => 1 } );
39 0           $htmler->indent_dec();
40 0           $htmler->para("to the following address:");
41 0           $htmler->indent_inc();
42 0           $htmler->start_para();
43 0           $htmler->email_address( "listserv", $self->get_hostname() );
44 0           $htmler->end_para();
45 0           $htmler->indent_dec();
46              
47 0           return 0;
48             }
49              
50             sub render_subscribe
51             {
52 0     0 1   my $self = shift;
53              
54 0           my $htmler = shift;
55              
56 0           return $self->render_mail_management( $htmler, "To subscribe",
57             "subscribe" );
58             }
59              
60             sub render_unsubscribe
61             {
62 0     0 1   my $self = shift;
63              
64 0           my $htmler = shift;
65              
66 0           return $self->render_mail_management( $htmler, "To unsubscribe",
67             "signoff" );
68             }
69              
70             sub render_post
71             {
72 0     0 1   my $self = shift;
73              
74 0           my $htmler = shift;
75              
76 0           return $self->render_something_with_email_addr( $htmler,
77             "Send your messages to the following address: ",
78             \&_get_post_address );
79             }
80              
81             sub render_owner
82             {
83 0     0 1   my $self = shift;
84              
85 0           my $htmler = shift;
86              
87 0           return $self->render_something_with_email_addr( $htmler,
88             "Send messages to the mailing-list owner to the following address: ",
89             \&_get_owner_address );
90             }
91              
92             1;
93              
94             __END__