Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
executable file 31 lines (23 sloc) 513 Bytes
#!/usr/bin/env perl
use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib/";
use Yomico;
use Pod::Usage;
use Getopt::Long;
my %opt;
Getopt::Long::GetOptions(\%opt, qw/ reload=s R=s port=i /);
my $doc = $ARGV[0] or pod2usage(2);
my $yomico = Yomico->new( doc => $doc );
my @opt;
for my $key ( keys %opt ) {
push @opt, ( "-$key" => $opt{$key} ),
}
$yomico->run(\@opt);
__END__
=head1 NAME
yomico - Command line script for Yomico.
=head1 SYNOPSIS
yomico [options] [file or directory ...]
=cut