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   2814 use strict;
  1         3  
  1         37  
5 1     1   6 use warnings;
  1         2  
  1         30  
6              
7 1     1   5 use Carp;
  1         2  
  1         80  
8 1     1   7 use Data::Dumper;
  1         2  
  1         57  
9              
10 1     1   5 use base 'API::Plesk::Component';
  1         3  
  1         634  
11              
12             sub enable {
13 1     1 1 5 my ($self, %filter) = @_;
14 1         3 my $bulk_send = delete $filter{bulk_send};
15              
16 1 50       10 return $bulk_send ? \%filter :
17             $self->plesk->send('mail', 'enable', \%filter);
18             }
19              
20             sub disable {
21 1     1 1 5 my ($self, %filter) = @_;
22 1         4 my $bulk_send = delete $filter{bulk_send};
23              
24 1 50       7 return $bulk_send ? \%filter :
25             $self->plesk->send('mail', 'disable', \%filter);
26             }
27              
28              
29             1;
30              
31             __END__