#!/usr/bin/env perl
use strict;
use warnings;
use utf8;

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

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

my $flags = getopts(@ARGV);

help() if $flags->{help};


if ($flags->{new}){
    new(set_template('lib/template.md'),"slides");
} elsif ($flags->{build}) {
   build_recently("slides");
} else {
    build_pinpoint($flags->{build_point});
}


sub help {
    say 'slider [%options]';
}


__END__

my $flags = getopts(@ARGV);

if ($flags->{new}){