use Benchmark qw(cmpthese);

cmpthese( 10_000,
	  {
	   'From Cache' => sub{ $link->_load_from_cache   ( $criteria ); },
	   '  From DBI' => sub{ $link->_load_from_database( $criteria ); }
	  }
	);