Package DE_EPAGES::DocdataPay::t::MockUserAgentStatus
This class replace the web request to Docdata.
Example |
my $mockObject = DE_EPAGES::DocdataPay::t::MockUserAgentStatus->new(); local *LWP::UserAgent::post; *LWP::UserAgent::post = sub { return $mockObject; }; |