envstore: Use Pod::Usage

1 files changed, 8 insertions, 2 deletions

diff --git a/bin/envstore b/bin/envstore
index 414d4a3..936a584 100755
--- a/bin/envstore
+++ b/bin/envstore
@@ -4,6 +4,7 @@
 ## License: WTFPL <http://sam.zoy.org/wtfpl>
 use strict;
 use warnings;
+use Pod::Usage;
 use Simplestore;
 
 my $store_file = "/tmp/.envstore-$>";
@@ -14,8 +15,13 @@ my $arg2 = shift;
 my ($key, $value);
 
 sub usage {
-	print STDERR "Invalid invocation - see perldoc -F $0\n";
-	exit(1);
+	pod2usage(
+		-message  => 'Syntax error',
+		-exitval  => 1,
+		-verbose  => 99,
+		-sections => 'SYNOPSIS|DESCRIPTION',
+		-output   => \*STDERR,
+	);
 }
 
 sub check_store {