File Coverage

blib/lib/Net/Server/Mail/ESMTP/Extension.pm
Criterion Covered Total %
statement 18 20 90.0
branch n/a
condition 1 3 33.3
subroutine 8 10 80.0
pod 0 7 0.0
total 27 40 67.5


line stmt bran cond sub pod time code
1             package Net::Server::Mail::ESMTP::Extension;
2              
3 2     2   30 use 5.006;
  2         6  
4 2     2   8 use strict;
  2         4  
  2         34  
5 2     2   8 use warnings;
  2         4  
  2         332  
6              
7             our $VERSION = "0.26";
8              
9             =pod
10              
11             =head1 NAME
12              
13             Net::Server::Mail::ESMTP::Extension - The base class for ESMTP extension system
14              
15             =head1 DESCRIPTION
16              
17             =cut
18              
19             sub new {
20 7     7 0 17 my ( $proto, $parent ) = @_;
21 7   33     35 my $class = ref $proto || $proto;
22 7         15 my $self = {};
23 7         15 bless( $self, $class );
24 7         31 return $self->init($parent);
25             }
26              
27             =pod
28              
29             =head1 init
30              
31             ($self) = $obj->init($parent);
32              
33             You can override this method to do something at the
34             initialisation. The method takes the $smtp object as parameter.
35              
36             =cut
37              
38             sub init {
39 7     7 0 16 my ( $self, $parent ) = @_;
40 7         30 return $self;
41             }
42              
43             =pod
44              
45             =head1 verb
46              
47             =cut
48              
49             sub verb {
50 0     0 0 0 return ();
51             }
52              
53             =pod
54              
55             =head1 keyword
56              
57             =cut
58              
59             sub keyword {
60 0     0 0 0 return 'XNOTOVERLOADED';
61             }
62              
63             =pod
64              
65             =head1 parameter
66              
67             =cut
68              
69             sub parameter {
70 9     9 0 36 return ();
71             }
72              
73             =pod
74              
75             =head1 option
76              
77             =cut
78              
79             sub option {
80 7     7 0 23 return ();
81             }
82              
83             =pod
84              
85             =head1 reply
86              
87             =cut
88              
89             sub reply {
90 7     7 0 14 return ();
91             }
92              
93             1;