#!/usr/bin/env perl =head1 SYNOPSIS $0 [--url https://raw.githubusercontent.com/MYDan/proc/master/procupdate] [--interval number] =cut use strict; use warnings; use MYDan::Util::OptConf; use MYDan::Bootstrap::ProcUpdate; $MYDan::Util::OptConf::THIS = 'bootstrap'; my $option = MYDan::Util::OptConf->load(); my %o = $option->get( qw( url=s interval=i ) )->dump(); $option->assert( 'url' ); $0 = 'mydan.procupdate'; MYDan::Bootstrap::ProcUpdate->new( %o )->run(); print "done.\n";