Select Code to Download

### An object like this...
my $obj = bless( {
...
this_object_has_some_long_keys:
  and_some_of_them_are_nested:
    fairly_deeply: Foo!

$fh->print(
    "package MyApp::TestData::$digest;\n",
...
    "$tag\n",
    "return __PACKAGE__;\n",
);

package MyApp::TestData::PUHmx80zfPHoDloIOrexGA;
use parent 'Class::Data::Accessor';
...
Original file contents here...
___END_OF_TEST_DATA_SECTION___
return __PACKAGE__;

for my $file ( <*.pl> ) {
    ok( my $class = do $file, "Loaded $file" );
...
    );
    eq_or_diff( $p->store, $class->store );
}