show usage

xaicron · Jul 10, 2011 · 86777e3 · 86777e3
1 parent fc1b65b
commit 86777e3
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/lib/App/envfile.pm b/lib/App/envfile.pm
@@ -19,6 +19,7 @@ sub run {
 
 sub load_envfile {
     my ($self, $file) = @_;
+    $self->usage unless -f $file;
     open my $fh, '<', $file or die "$file: $!\n";
     while (defined (my $line = readline $fh)) {
         chomp $line;

diff --git a/t/02_load_envfile.t b/t/02_load_envfile.t
@@ -91,8 +91,13 @@ FOO = bar
 ENV
 
 subtest 'file not found' => sub {
+    no warnings 'redefine';
+    *App::envfile::usage = sub {
+        ok "call this method", "call usage";
+        die "oops";
+    };
     eval { App::envfile->new->load_envfile('foo.bar') };
-    like $@, qr/^foo.bar: No such file or directory/;
+    like $@, qr/oops/;
 };
 
 done_testing;