Mercurial > hg > Members > anatofuz > slides
view slide-cr @ 34:448db64959d0 fix
close
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Tue, 01 May 2018 09:34:46 +0900 |
parents | 2eac67c0d7da |
children |
line wrap: on
line source
#!/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__