Select Code to Download

use warnings;
use strict;
...
#$foo->Fields = 0;  # wrong, fails
$foo->Fields({});
dd $foo->Fields;  # prints {}