Help for this page

Select Code to Download


  1. or download this
    $replay =~ s/^\$VAR1\s*=\s*//;
$replay = eval $replay; 
print "ref: ".ref($replay)."\n";
Test::Mock::HTTP::Tiny->set_mocked_data($replay);
  2. or download this
        if (ref($new_mocked_data) eq 'ARRAY') {
      ...
...
    else {
        # TODO: error
    }
  3. or download this
    my $mocked_data = Test::Mock::HTTP::Tiny->mocked_data();
store $mocked_data, 'mock_html.dat';
...
my $replay = retrieve 'mock_html.dat';
print "ref: ".ref($replay)."\n";
Test::Mock::HTTP::Tiny->set_mocked_data($replay);