aboutsummaryrefslogtreecommitdiff
path: root/slides/website-slides
diff options
context:
space:
mode:
Diffstat (limited to 'slides/website-slides')
-rwxr-xr-xslides/website-slides10
1 files changed, 8 insertions, 2 deletions
diff --git a/slides/website-slides b/slides/website-slides
index a1f1466..77f1f63 100755
--- a/slides/website-slides
+++ b/slides/website-slides
@@ -43,16 +43,22 @@ use Term::ANSIColor;
my $help = 0;
my $name = '';
+my $test = 0;
GetOptions(
'help|h|?' => \$help,
- 'name|n=s' => \$name
+ 'name|n=s' => \$name,
+ 'test|?' => \$test
) or pod2usage(-verbose => 1, -exitval => 2);
pod2usage(-verbose => 2, -exitval => 0) if $help;
pod2usage(
-verbose => 1,
-exitval => 2,
-message => colored("Missing required --name argument.", "red")
-) if !$name;
+) if !$name && !$test;
+
+if ($test) {
+ exit;
+}
my $dirname = dirname(__FILE__);
chdir $dirname ;