diff options
Diffstat (limited to 'slides/website-slides')
-rwxr-xr-x | slides/website-slides | 10 |
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 ; |