no_chdir => 1,
wanted => sub {
return if /\.(?:jpe?g|png|gif|rej|\~)$/i;
- if (m!/\.svn$!) {
- $File::Find::prune = 1;
- return;
- }
return unless -f $_;
diag "testing $_" if $ENV{'TEST_VERBOSE'};
eval { compile_file($_) } and return;
}, 'html');
ok($ok, "mason syntax is ok");
+use HTML::Mason;
use HTML::Mason::Compiler;
use HTML::Mason::Compiler::ToObject;
close $fh or die "couldn't close '$file': $!";
my $compiler = new HTML::Mason::Compiler::ToObject;
- $compiler->compile( comp_source => $text, name => 'my' );
+ $compiler->compile(
+ comp_source => $text,
+ name => 'my',
+ $HTML::Mason::VERSION >= 1.36? (comp_path => 'my'): (),
+ );
return 1;
}