Select Code to Download

package MyApp::RESTful;

...

  );
}

my @REST_methods = qw( new query defaultQueryObject resourceHooks extr
+aHandlerArgs getPathInfo getRealRequestMethod getRequestMethod loadRe
+source getHandlerArgs callHandler getMatchText checkMatch getLastMatc
+hPath getLastMatchPattern run getHeaders addRepresentation headerType
+ header resetHeader setRedirect setup preRun postRun defaultResourceH
+andler _getHandlerFromHook makeHandlerFromRef makeHandlerFromClass be
+stContentType simpleContentNegotiation scoreType getContentPrefs getA
+cceptHeader _getLastRegexMatches _setLastRegexMatches );

foreach my $method ( @REST_methods ){
  can_ok($myapp, $method);
}

    use Apache;
    use Apache::Constants qw(:common);
...
        __PACKAGE__->new(request => $r)->run();
        return OK;
    }