my @REST_methods = qw( new query defaultQueryObject resourceHooks extraHandlerArgs getPathInfo getRealRequestMethod getRequestMethod loadResource getHandlerArgs callHandler getMatchText checkMatch getLastMatchPath getLastMatchPattern run getHeaders addRepresentation headerType header resetHeader setRedirect setup preRun postRun defaultResourceHandler _getHandlerFromHook makeHandlerFromRef makeHandlerFromClass bestContentType simpleContentNegotiation scoreType getContentPrefs getAcceptHeader _getLastRegexMatches _setLastRegexMatches ); foreach my $method ( @REST_methods ){ can_ok($myapp, $method); }