#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use DDP { deparse => 1 };

use lib "lib","lib/Slideshow/local/lib/perl5";

use Slideshow::Util;
use feature 'say';

my $coderef = getopts(@ARGV);

unless ( ref $coderef ){
    help();
    exit;
}

p $coderef;
map { $_->() } @$coderef;

sub help {
    say 'slider [new build build-open open edit]';
}


__END__