done_testing; =========================================== exception below: ================== $ perl -T -Ilib t/004_plugin_adapter_dir.t 2>&1 [Test::Adapter::fuu::Barr:9518] error @2015-09-18 14:38:41> Route exception: Dancer2::Plugin::Adapter::service() requires a name argument at lib/Dancer2/Plugin/Adapter.pm line 42. in /usr/local/share/perl/5.20.1/Dancer2/Core/App.pm l. 1276 HTTP::Response { Parents HTTP::Message public methods (23) : as_string, base, clone, code, current_age, dump, error_as_HTML, filename, freshness_lifetime, fresh_until, from_psgi, is_error, is_fresh, is_info, is_redirect, is_success, message, new, parse, previous, redirects, request, status_line private methods (0) internals: { _content "{"status":500,"exception":"Dancer2::Plugin::Adapter::service() requires a name argument at lib/Dancer2/Plugin/Adapter.pm line 42.\n","message":"","title":"Error 500 - Internal Server Error"}", _headers HTTP::Headers, _msg "Internal Server Error", _rc 500, _request HTTP::Request } } not ok 1 - Successful request # Failed test 'Successful request' # at t/004_plugin_adapter_dir.t line 45. not ok 2 - Request content correct # Failed test 'Request content correct' # at t/004_plugin_adapter_dir.t line 47. # '{"status":500,"exception":"Dancer2::Plugin::Adapter::service() requires a name argument at lib/Dancer2/Plugin/Adapter.pm line 42.\n","message":"","title":"Error 500 - Internal Server Error"}' # doesn't match '(?^i:Hello World)' 1..2 # Looks like you failed 2 tests of 2. ====================
The exception above is coming from line 47 below
======================== Dancer2/Plugin/Adapter.pm ======================== register service => sub { my ( $dsl, $name ) = plugin_args(@_);
unless ($name) { die "Dancer2::Plugin::Adapter::service() requires a name argument"; # line 47 }
$conf ||= plugin_setting();
# ensure service is defined my $object_conf = $conf->{$name} or die "No configuration for Adapter '$name'";
============== Dancer2/Plugin.pm around line 136 =============== sub plugin_setting { my $plugin = caller; my $dsl = _get_dsl() or croak 'No DSL object found';
( my $plugin_name = $plugin ) =~ s/Dancer2::Plugin:://;