From 3579912d0fbf05fc0a945ef3c7b08497b0aabe4e Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Tue, 31 Aug 2010 15:45:25 +0200
Subject: check path for file

---
 lib/Net/HTTP/API/Spec.pm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'lib/Net')

diff --git a/lib/Net/HTTP/API/Spec.pm b/lib/Net/HTTP/API/Spec.pm
index 6fcd6d4..39f9680 100644
--- a/lib/Net/HTTP/API/Spec.pm
+++ b/lib/Net/HTTP/API/Spec.pm
@@ -3,12 +3,17 @@ package Net::HTTP::API::Spec;
 use JSON;
 use Moose;
 use IO::All;
+use Carp;
 
 use Net::HTTP::API::Core;
 
 sub new_from_spec {
     my ($class, $spec_file) = @_;
 
+    if (! -f $spec_file) {
+        Carp::confess ("$spec_file does not exists");
+    }
+
     my $content < io($spec_file);
     my $spec = JSON::decode_json($content);
 
-- 
cgit 1.4.1