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     single => 0
  12 };
  13
  14 GetOptions(
  15     'f|fork' => \$options->{fork},
  16     's|single' => \$options->{single}
  17 );
  18
  19 fey $options, @ARGV;