1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
|
package JWebmail::Model::ReadMails::MockJSON;
use v5.24;
use warnings;
use utf8;
use autodie;
use List::Util 'sum';
use JSON::PP 'decode_json';
use Digest::HMAC_MD5 'hmac_md5_hex';
use Role::Tiny::With;
use namespace::clean;
use constant {
VALID_USER => 'mockjson@example.com',
VALID_PW => 'vwxyz',
};
with 'JWebmail::Model::ReadMails::Role';
sub new { bless {}, shift }
sub _read_json_file {
my ($file_name) = @_;
use constant PREFIX => 't/private/';
open my $body_file, '<', PREFIX . $file_name;
local $/;
my $body = <$body_file>;
close $body_file;
return decode_json($body);
}
sub list_reply {
state $init = _read_json_file('msgs.json');
}
sub read_reply {
state $init = {
'SC-ORD-MAIL54526c63b751646618a793be3f8329cca@sc-ord-mail5' => _read_json_file('msg2.json'),
'example' => _read_json_file('msg.json'),
};
}
sub verify_user {
my $self = shift;
my $auth = shift;
if ($auth->{challenge}) {
my $res = hmac_md5_hex($auth->{challenge}, VALID_PW);
return $auth->{user} eq VALID_USER && $auth->{password} eq $res;
}
return $auth->{user} eq VALID_USER && $auth->{password} eq VALID_PW;
}
sub read_headers_for {
my $self = shift;
my $auth = shift;
my %args = @_;
my ($start, $end, $sort, $folder) = @args{qw(start end sort folder)};
unless ($sort) {
return [@{ $self->list_reply }[$start..$end]];
}
if ($folder eq 'test') {
return [];
}
my $s = sub {
my $sort_by = $sort;
my $rev = $sort_by !~ m/^!/ ? 1 : -1;
$sort_by =~ s/^!//;
return (($a->{$sort_by}||$a->{head}{$sort_by}) cmp ($b->{$sort_by}||$b->{head}{$sort_by})) * $rev;
};
return [sort { &$s } @{ $self->list_reply }[$start..$end]];
}
sub count {
my $self = shift;
my $auth = shift;
my $_folder = shift;
return (
sum(map {$_->{size}} @{ $self->list_reply }), # size
scalar(@{ $self->list_reply }), # count
0, # new
);
}
sub show {
my $self = shift;
my $auth = shift;
my $mid = shift;
my $mail = $self->read_reply->{$mid};
if ($mail) {
return $mail;
}
else {
die 'unknown mail-id';
}
}
sub folders { ['', qw(cur test devel debug)] }
sub search { ... }
sub move { ... }
1
__END__
=head1 NAME
Mock - Simple file based mock for the L<JWebmail::Model::ReadMails> module.
=cut
|
