Added field "dir" to File, so that MetaCPAN::Web::Model::API::File::d…

…ir() no longer needs to use the prefix filter.
metacpan · Apr 18, 2015 · f66ae99 · f66ae99
1 parent 661a626
commit f66ae99
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/lib/MetaCPAN/Document/File.pm b/lib/MetaCPAN/Document/File.pm
@@ -575,6 +575,22 @@ sub _build_path {
     return join( '/', $self->release->name, $self->name );
 }
 
+has dir => (
+    is         => 'ro',
+    lazy_build => 1,
+    isa        => 'Str',
+    required   => 1,
+    index      => 'not_analyzed'
+);
+
+sub _build_dir {
+    my $self = shift;
+    $DB::single = 1;
+    my $dir = $self->path;
+    $dir =~ s{/[^/]+$}{};
+    return $dir;
+}
+
 has [qw(release distribution)] => (
     is       => 'ro',
     required => 1,