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