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     context => undef,
  11     fork => 0,
  12     group => 0,
  13     interactive => 0,
  14     single => 0
  15 };
  16
  17 GetOptions(
  18     'c|context:s' => \$options->{context},
  19     'f|fork' => \$options->{fork},
  20     'g|group' => \$options->{group},
  21     'i|interactive' => \$options->{interactive},
  22     's|single' => \$options->{single}
  23 );
  24
  25 fey $options, @ARGV;