diff options
| author | Jannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de> | 2020-11-12 23:20:30 +0100 |
|---|---|---|
| committer | Jannis M. Hoffmann <jannis.hoffmann@rwth-aachen.de> | 2020-11-12 23:20:30 +0100 |
| commit | bf5554febae6f299c716b5a9582c6bfd6980b728 (patch) | |
| tree | 8a1ef7206ea5affca689ce71edf31e3114440fe9 /lib/JWebmail/Model | |
| parent | 487629cca62c29719e44df2e68cf14d8b0cc2f3e (diff) | |
+ added some files that should belonged to the last commit
+ preparation for supporting more mime types
Diffstat (limited to 'lib/JWebmail/Model')
| -rw-r--r-- | lib/JWebmail/Model/Driver/Mock.pm | 6 | ||||
| -rw-r--r-- | lib/JWebmail/Model/WriteMails.pm | 3 |
2 files changed, 5 insertions, 4 deletions
diff --git a/lib/JWebmail/Model/Driver/Mock.pm b/lib/JWebmail/Model/Driver/Mock.pm index eb8c0d0..b2da1be 100644 --- a/lib/JWebmail/Model/Driver/Mock.pm +++ b/lib/JWebmail/Model/Driver/Mock.pm @@ -22,7 +22,9 @@ use constant { sub _read_json_file { my ($file_name) = @_; - open(my $body_file, '<', $file_name); + use constant PREFIX => 't/private/'; + + open(my $body_file, '<', PREFIX . $file_name); local $/; my $body = <$body_file>; close $body_file; @@ -99,4 +101,4 @@ __END__ Mock - Simple file based mock for the L<JWebmail::Model::ReadMails> module. -=cut
\ No newline at end of file +=cut diff --git a/lib/JWebmail/Model/WriteMails.pm b/lib/JWebmail/Model/WriteMails.pm index 5df5379..1807a72 100644 --- a/lib/JWebmail/Model/WriteMails.pm +++ b/lib/JWebmail/Model/WriteMails.pm @@ -6,7 +6,6 @@ use utf8; use Exporter 'import'; our @EXPORT_OK = qw(sendmail); -use Data::Dumper; use Email::MIME; @@ -140,4 +139,4 @@ Optinal attachment. The mime type of the attachment. -=cut
\ No newline at end of file +=cut |