view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

                         "totalItemCount":2,
                         "parentFolderId":"AABBBBBAAAAA=",
                         "childFolderCount":0,
                         "unreadItemCount":2,
                         "id":"AAAABBBBCCCCCDDDDDXXXXX="
                     } ]}');
}

sub get_mocked_token_response {
    return HTTP::Response->new('200', 'OK', ['Content-Type' => 'application/json'],
                               '{"token_type":"Bearer","scope":"email Mail.Read Mail.Read.Shared Mail.ReadWrite Mail.ReadWrite.Shared openid User.Read","expires_in":"3599","ext_expires_in":"3599","expires_on":"1591286563","not_before":"1591282663","r...
                           );
}


sub get_mocked_messages_response {
    my $json = read_file('t/mock_responses/messages.json');
    return HTTP::Response->new('200', 'OK', ['Content-Type' => 'application/json'], $json);
}

sub get_test_config {