use strict;
+use warnings;
use DBIx::Class::Schema::Loader;
use DBIx::Class::Schema::Loader::Utils 'slurp_file';
use File::Path;
}
$original_class_data{$class} = $text;
- if ($class =~ /::1$/) {
+ if ($class =~ /::1$/) {
$text = "No Gotcha!";
- }
+ }
else {
- $text .= q{my $foo = "Kilroy was here";};
- }
+ $text .= q{my $foo = "Kilroy was here";};
+ }
return $text;
},
);
'correct number of result files passed to filter';
my $foo = slurp_file "$dump_path/DBICTest/Schema/1/Result/Foo.pm";
-ok(! -e "$dump_path/DBICTest/Schema/1.pm",
- "No package means no file written");
-ok($original_class_data{"DBICTest::Schema::1"},
- "Even though we processed the missing class");
-like($foo, qr/# Created by .* THE FIRST PART/s,
- "We get the whole autogenerated text");
-like($foo, qr/Kilroy was here/, "Can insert text");
+ok ! -e "$dump_path/DBICTest/Schema/1.pm",
+ "No package means no file written";
+ok $original_class_data{"DBICTest::Schema::1"},
+ "Even though we processed the missing class";
+like $foo, qr/# Created by .* THE FIRST PART/s,
+ "We get the whole autogenerated text";
+like $foo, qr/Kilroy was here/, "Can insert text";
DBICTest::Schema::2->connect($make_dbictest_db::dsn);