Select Code to Download

  my $thing = Thing->new(model => $model);
  print Dumper $thing;
  ok( $thing->model, $model );

  $thing->do_something_interesting();
  # the thing's model shouldn't have changed
  ok( $thing->model, $model ) or print Dumper $thing;