Select Code to Download

   with_cache_cleared_do { some_sub_requesting_the_data; };

use strict;
use warnings;
...
my @x = with_cache_cleared_do {  return ( 'one', refresh_requested() )
+; };
ok( ( $x[0] eq 'one' and $x[1] == 1 ) , 'result in list context' );