fixed missing 'level' value + test t/server/controller/changes.t

metacpan · May 4, 2016 · bed83eb · bed83eb
1 parent 6d8a097
commit bed83eb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 5 deletions.
diff --git a/lib/MetaCPAN/Document/File.pm b/lib/MetaCPAN/Document/File.pm
@@ -384,10 +384,11 @@ has a level of C<0>).
 =cut
 
 has level => (
-    is      => 'ro',
-    isa     => Int,
-    lazy    => 1,
-    builder => '_build_level',
+    required => 1,
+    is       => 'ro',
+    isa      => Int,
+    lazy     => 1,
+    builder  => '_build_level',
 );
 
 sub _build_level {

diff --git a/lib/MetaCPAN/Server/Controller/Changes.pm b/lib/MetaCPAN/Server/Controller/Changes.pm
@@ -57,7 +57,7 @@ sub get : Chained('index') : PathPart('') : Args(2) {
                             {
                                 and => [
                                     { term => { level     => 0 } },
-                                    { term => { directory => \0 } },
+                                    { term => { directory => 0 } },
                                     {
                                         or => [
                                             map {