From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 18 Dec 2013 15:10:11 +0000 (+0100)
Subject: extract path from full_path if missing
X-Git-Url: http://git.rot13.org/?p=MojoFacets.git;a=commitdiff_plain;h=358b8708f3e09459becdad4524910ab273a47281;hp=23a76f443bada4fa873f6e59d244ad1e33f88347

extract path from full_path if missing
---

diff --git a/lib/MojoFacets/Import/File.pm b/lib/MojoFacets/Import/File.pm
index 503be1d..926937f 100644
--- a/lib/MojoFacets/Import/File.pm
+++ b/lib/MojoFacets/Import/File.pm
@@ -19,6 +19,10 @@ sub data {
 	my $self = shift;
 
 	my $path = $self->path;
+	if ( ! $path ) {
+		$path = $self->full_path || die "no path or full_path";
+		$path =~ s{^.+/([^/]+)$}{$1};
+	}
 
 	# we could use Mojo::JSON here, but it's too slow
 #	$data = from_json read_file $path;