diff options
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 |