view release on metacpan or  search on metacpan

t/02-exceptions.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 62;
use mocked [ 'LWP::UserAgent', 't/mock' ];
use Net::API::RPX;
use Data::Dump qw( dump );

sub capture(&) {
  my ($code) = shift;
  my ( $result, $evalerror ) = ( 'fail', );
  local $@;
  eval { $code->(); $result = 'test_success' };
  $evalerror = $@;
  if ( defined $result && $result eq 'test_success' ) {
    return ( 1, undef );
  }
  return ( 0, $evalerror );
}