File Coverage

blib/lib/Net/POP3/PerMsgHandler/Message.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::Message;
2              
3             =head1 NAME
4              
5             Net::POP3::PerMsgHandler::Message - 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   8 use strict;
  1         3  
  1         40  
16 1     1   6 use warnings;
  1         2  
  1         36  
17              
18 1     1   7 use base qw(Class::Accessor::Fast);
  1         2  
  1         156  
19              
20             __PACKAGE__->mk_accessors(
21             qw/
22             size
23             rfc2822
24             array_ref
25             email_mime
26             email_mime_stripped
27             mail_message
28             mail_message_stripped
29             /
30             );
31              
32             =head1 FUNCTIONS
33              
34             =head2 size
35              
36             return message length.
37              
38             =head2 rfc2822
39              
40             return message as RFC2822 format strings. (Envelope-from, headers and body)
41              
42             =head2 array_ref
43              
44             returns a reference to an array which contains the lines of message read from the server.
45              
46             =head2 email_mime
47              
48             returns Email::MIME instance.
49              
50             =head2 email_mime_stripped
51              
52             returns Email::MIME instance stripped by Email::MIME::Attachment::Stripper.
53              
54             =head2 mail_message
55              
56             returns Mail::Message instance.
57              
58             =head2 mail_message_stripped
59              
60             returns Mail::Message instance stripped by Mail::Message::Attachment::Stripper.
61              
62             =head1 SEE ALSO
63              
64             L, L, L, L, L, L
65              
66             =head1 AUTHOR
67              
68             bokutin, C<< >>
69              
70             =head1 COPYRIGHT & LICENSE
71              
72             Copyright 2007 bokutin, all rights reserved.
73              
74             This program is free software; you can redistribute it and/or modify it
75             under the same terms as Perl itself.
76              
77             =cut
78              
79             1;