line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# ============================================================================ |
2
|
|
|
|
|
|
|
package Mail::Builder::Attachment::File; |
3
|
|
|
|
|
|
|
# ============================================================================ |
4
|
|
|
|
|
|
|
|
5
|
1
|
|
|
1
|
|
1546
|
use namespace::autoclean; |
|
1
|
|
|
|
|
4
|
|
|
1
|
|
|
|
|
7
|
|
6
|
1
|
|
|
1
|
|
87
|
use Moose; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
7
|
|
7
|
|
|
|
|
|
|
extends qw(Mail::Builder::Attachment); |
8
|
|
|
|
|
|
|
|
9
|
1
|
|
|
1
|
|
6184
|
use Carp; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
120
|
|
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
our $VERSION = $Mail::Builder::VERSION; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
before BUILDARGS => sub{ |
14
|
|
|
|
|
|
|
carp '<Mail::Builder::Attachment::File> is deprecated, use <Mail::Builder::Attachment> instead'; |
15
|
|
|
|
|
|
|
}; |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
__PACKAGE__->meta->make_immutable; |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
1; |