diff --git a/cpanfile b/cpanfile
new file mode 100644
index 0000000..92ef292
--- /dev/null
+++ b/cpanfile
@@ -0,0 +1,4 @@
+requires 'Test::More';
+requires 'Mojo::File';
+requires 'Test::Mojo';
+requires 'Mojolicious::Lite';
diff --git a/guestbook-ng.pl b/guestbook-ng.pl
index 427331f..f774e70 100755
--- a/guestbook-ng.pl
+++ b/guestbook-ng.pl
@@ -14,7 +14,7 @@ get '/' => sub ($c) {
 } => 'index';
 
 any '/test' => sub ($c) {
-    my $method = $c->req->method;
+    my $method = $c->req->method();
     my $string = $tm->test_model($c->param('string'));
 
     $c->render(method => $method, string => $string);