File Coverage

blib/lib/API/Plesk/Mail.pm
Criterion Covered Total %
statement 21 21 100.0
branch 2 4 50.0
condition n/a
subroutine 7 7 100.0
pod 2 2 100.0
total 32 34 94.1


line stmt bran cond sub pod time code
1              
2             package API::Plesk::Mail;
3              
4 1     1   1838 use strict;
  1         1  
  1         22  
5 1     1   2 use warnings;
  1         2  
  1         23  
6              
7 1     1   3 use Carp;
  1         1  
  1         49  
8 1     1   3 use Data::Dumper;
  1         1  
  1         40  
9              
10 1     1   3 use base 'API::Plesk::Component';
  1         1  
  1         311  
11              
12             sub enable {
13 1     1 1 3 my ($self, %filter) = @_;
14 1         3 my $bulk_send = delete $filter{bulk_send};
15              
16 1 50       7 return $bulk_send ? \%filter :
17             $self->plesk->send('mail', 'enable', \%filter);
18             }
19              
20             sub disable {
21 1     1 1 3 my ($self, %filter) = @_;
22 1         2 my $bulk_send = delete $filter{bulk_send};
23              
24 1 50       6 return $bulk_send ? \%filter :
25             $self->plesk->send('mail', 'disable', \%filter);
26             }
27              
28              
29             1;
30              
31             __END__