view release on metacpan or  search on metacpan

t/003_publish/04_create_test_users.t  view on Meta::CPAN

    ];

    $Mock_furl_http->mock(
        request => sub {
            my ($mock, %args) = @_;

            is $args{url}, 'https://graph.facebook.com/', 'end point';
            is $args{method}, 'POST', 'method';
            is_deeply $args{headers}, ['Authorization', 'OAuth 12345qwerty'], 'headers';
            ok $args{content}->{batch};
            my $decoded_content = decode_json($args{content}->{batch});
            my $body = +{URI->new('?'.$decoded_content->[0]->{body})->query_form};
            is_deeply $body, +{
                permissions => 'publish_actions',
                installed   => 'true',
                locale      => 'en_US',
            }, 'body';
            is $decoded_content->[0]->{relative_url}, '/1234556/accounts/test-users', 'relative_url';
            is uc $decoded_content->[0]->{method}, 'POST', 'method';
            is_deeply $args{content}->{access_token}, '12345qwerty', 'access_token';
    
            return (
                1,
                200,
                'OK',
                ['Content-Type' => 'text/javascript; charset=UTF8'],
                encode_json([
                    +{
                        code    => 200,