An example of using named blocks in tests to help readability

Net::API::RPX test example.pl

Failure_Scenarios: {
    my $rpx = Net::API::RPX->new({ api_key => 'test' });

    {
        local $HTTP::Response::SUCCESS = 0;
        local $HTTP::Response::STATUS = '500 the tubes were clogged';

        throws_ok {
            $rpx->auth_info({ token => 'boo' })
        } qr{Could not contact RPX: 500 the tubes were clogged}, 'LWP failure handled';
    }

    local $HTTP::Response::CONTENT = '{ "stat": "fail", "err": { "code": "2", "msg": "server went pop" } }';
    throws_ok{
        $rpx->auth_info({ token => 'yelp' })
    } qr{RPX returned error of type 'Data not found' with message: server went pop}, 'RPX failure handled';
}