lib/Catalyst/PAR.pm

   1 package Catalyst::PAR;
   2
   3 use strict;
   4 use base 'Class::Accessor::Fast';
   5 use FindBin;
   6 use IO::File;
   7 use File::Spec;
   8 use File::Find;
   9 require Catalyst;
  10
  11 =head1 NAME
  12
  13 Catalyst::PAR - Package Catalyst Applications
  14
  15 =head1 SYNOPSIS
  16
  17 See L<Catalyst>
  18
  19 =head1 DESCRIPTION
  20
  21 Package Catalyst Applications.
  22
  23 =head1 METHODS
  24
  25 =over 4
  26
  27 =item $self->package( $par, $engine )
  28
  29 =cut
  30
  31 sub package {
  32     my ( $self, $options ) = @_;
  33
  34     my $par    = $options->{par}    || 'application.par';
  35     my $engine = $options->{engine} || 'CGI';
  36
  37     # Check for PAR
  38     eval "use PAR ()";
  39     die "Please install PAR" if $@;
  40     eval "use PAR::Packer ()";
  41     die "Please install PAR::Packer" if $@;
  42     eval "use App::Packer::PAR ()";
  43     die "Please install App::Packer::PAR" if $@;
  44     eval "use Module::ScanDeps ()";
  45     die "Please install Module::ScanDeps" if $@;
  46
  47     chdir File::Spec->catdir( $FindBin::Bin, '..' );
  48
  49     # Find additional files
  50     my @files;
  51     finddepth(
  52         sub {
  53             my $name = $File::Find::name;
  54             return if $name =~ /^\W*lib/;
  55             return if $name =~ /^\W*blib/;
  56             return if $name =~ /^\W*_build/;
  57             return if $name =~ /\.par$/;
  58             return if $name !~ /\w+/;
  59             push @files, $name;
  60         },
  61         '.'
  62     );
  63
  64     my $par_test = File::Spec->catfile( $FindBin::Bin, '..', 'par_test.pl' );
  65     unlink $par_test;
  66
  67     my $version  = $Catalyst::VERSION;
  68     my $class    = $options->{class};
  69     my $tmp_file = IO::File->new("> $par_test");
  70     print $tmp_file <<"EOF";
  71 die "$class on Catalyst $version\n" if \$0 !~ /par_test.pl\.\\w+\$/;
  72 BEGIN { \$ENV{CATALYST_ENGINE} = '$engine' };
  73 use lib 'lib';
  74 require $class;
  75 import $class;
  76 EOF
  77     $tmp_file->close;
  78
  79     # Create package
  80     local $SIG{__WARN__} = sub { };
  81     open my $olderr, '>&STDERR';
  82     open STDERR, '>', File::Spec->devnull;
  83     my %opt = (
  84         'x' => 1,
  85         'n' => 0,
  86         'o' => $par,
  87         'a' => [@files],
  88         'p' => 1,
  89         'B' => $options->{core},
  90         'm' => $options->{multiarch}
  91     );
  92     App::Packer::PAR->new(
  93         frontend  => 'Module::ScanDeps',
  94         backend   => 'PAR::Packer',
  95         frontopts => \%opt,
  96         backopts  => \%opt,
  97         args      => ['par_test.pl'],
  98     )->go;
  99     open STDERR, '>&', $olderr;
 100
 101     unlink $par_test;
 102 }
 103
 104 =back
 105
 106 =head1 AUTHOR
 107
 108 Sebastian Riedel, C<sri@oook.de>
 109
 110 =head1 LICENSE
 111
 112 This library is free software, you can redistribute it and/or modify it under
 113 the same terms as Perl itself.
 114
 115 =cut
 116
 117 1;