bin/cpan2pkg

   1 #!/usr/bin/perl
   2 #
   3 # This file is part of App::CPAN2Pkg.
   4 # Copyright (c) 2009 Jerome Quelin, all rights reserved.
   5 #
   6 # This program is free software; you can redistribute it and/or modify
   7 # it under the same terms as Perl itself.
   8 #
   9 #
  10
  11 use strict;
  12 use warnings;
  13
  14 # for testing purposes
  15 use FindBin qw{ $Bin };
  16 use lib "$Bin/../lib";
  17
  18 #use Getopt::Euclid;
  19 use App::CPAN2Pkg::Curses;
  20 use Hook::Output::File;
  21
  22 my $hook;
  23 my $dir = _get_development_root();
  24 if ( defined $dir ) {
  25     $hook = Hook::Output::File->redirect(
  26         stdout => "$dir/cpan2pkg.stdout",
  27         stderr => "$dir/cpan2pkg.stderr",
  28     );
  29     warn '-' x 40 . "\n";
  30 }
  31
  32 my $ui = App::CPAN2Pkg::Curses->spawn({modules=>\@ARGV});
  33 $ui->mainloop;
  34
  35 exit;
  36
  37 sub _get_development_root {
  38     my $dir = "$Bin/..";
  39     return $dir if -d "$dir/.git";
  40     return;
  41 }
  42
  43 __END__