nmode's Git Repositories - Fey/blob - script/fey

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Getopt::Long;
   7 use App::Fey qw(fey);
   8
   9 my $options = {
  10     fork => 0,
  11     group => 0,
  12     single => 0
  13 };
  14
  15 GetOptions(
  16     'f|fork' => \$options->{fork},
  17     'g|group' => \$options->{group},
  18     's|single' => \$options->{single}
  19 );
  20
  21 fey $options, @ARGV;