File Coverage

blib/lib/Net/POP3/PerMsgHandler/Control.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Net::POP3::PerMsgHandler::Control;
2              
3             =head1 NAME
4              
5             Net::POP3::PerMsgHandler::Control - object for per_message callback
6              
7             =head1 VERSION
8              
9             Version 0.01
10              
11             =cut
12              
13             our $VERSION = '0.01';
14              
15 1     1   9 use strict;
  1         2  
  1         60  
16 1     1   9 use warnings;
  1         3  
  1         51  
17              
18 1     1   7 use base qw(Class::Accessor::Fast);
  1         4  
  1         202522  
19              
20             __PACKAGE__->mk_accessors(
21             qw/
22             delete
23             quit
24             /
25             );
26              
27             =head1 FUNCTIONS
28              
29             =head2 delete
30              
31             This is mutator. If true, delete message after callback. The default is false.
32              
33             =head2 quit
34              
35             This is mutator. If true, disconnect from server after callback. The default is false.
36              
37             =head1 SEE ALSO
38              
39             L, L, L, L, L, L
40              
41             =head1 AUTHOR
42              
43             bokutin, C<< >>
44              
45             =head1 COPYRIGHT & LICENSE
46              
47             Copyright 2007 bokutin, all rights reserved.
48              
49             This program is free software; you can redistribute it and/or modify it
50             under the same terms as Perl itself.
51              
52             =cut
53              
54             1;