diff options
author | franck cuny <franck@lumberjaph.net> | 2010-08-31 15:45:25 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-08-31 15:45:25 +0200 |
commit | 3579912d0fbf05fc0a945ef3c7b08497b0aabe4e (patch) | |
tree | a56642c0abd42361dc039c95316d48a15d4d831e /lib/Net/HTTP | |
parent | s/load/new/ (diff) | |
download | net-http-api-spec-3579912d0fbf05fc0a945ef3c7b08497b0aabe4e.tar.gz |
check path for file
Diffstat (limited to '')
-rw-r--r-- | lib/Net/HTTP/API/Spec.pm | 5 |
1 files changed, 5 insertions, 0 deletions
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); |