view release on metacpan or  search on metacpan

lib/Email/Stuffer/TestLinks.pm  view on Meta::CPAN

                return Future->done;
            }

            $http->GET(URI->new($uri))->then(
                sub {
                    my $response = shift;

                    return Future->fail("Response code was " . $response->code) if ($response->code !~ /^2\d\d/);

                    if ($response->content_type eq 'text/html') {
                        my $dom = Mojo::DOM->new($response->decoded_content);
                        if (my $title = $dom->at('title')) {
                            return Future->fail("Page title contains text '$1'") if $title->text =~ /(error|not found)/i;
                        }
                    }

                    if ($type eq 'image') {
                        return Future->fail("Unexpected content type: " . $response->content_type) unless $response->content_type =~ /^image\//;
                    }

                    return Future->done;