- or download this
package A;
...
return $b->call_rest_client;
}
1;
- or download this
package B;
...
return $client->responseContent;
}
1;
- or download this
use warnings;
use strict;
...
say "After mocking REST::Client->responseContent:\n";
say $obj->call_b;
- or download this
Before mocking REST::Client->responseContent:
...
After mocking REST::Client->responseContent:
{"a": 1, "b": 2}