use strict; use warnings; use File::Path; use Data::Dumper qw(Dumper); use Test::NoWarnings; use Test::Output; use Test::Most tests => 16, 'die'; BEGIN { $ENV{'DANCER_ENVIRONMENT'} = 'testing'; $SIG{__WARN__} = sub { my $warn = shift; return if $warn =~ /fallback to PP version/; warn $warn; }; }