use strict; use warnings; use Test::More; use Capture::Tiny 0.12 'capture_stderr'; BEGIN { use_ok('Dancer2::Core::Route') } like( capture_stderr { Dancer2::Core::Route->new( regexp => '/:splat', code => sub {1}, method => 'get', ); }, qr{^Named placeholder 'splat' is deprecated}, 'Find deprecation of :splat', ); SKIP: { skip 'Need perl >= 5.10', 1 unless $] >= 5.010; like( capture_stderr { Dancer2::Core::Route->new( regexp => '/:captures', code => sub {1}, method => 'get', ); }, qr{^Named placeholder 'captures' is deprecated}, 'Find deprecation of :captures', ); } done_testing;