Project: Catalyst

Revision: 2008

Author: sri

Date: 16 Nov 2005 21:21:25

• /trunk/Catalyst/lib/Catalyst/Helper.pm

  ......	@@ -2,7 +2,6 @@
  2	2
  3	3	use strict;
  4	4	use base 'Class::Accessor::Fast';
  5		use Config;
  6	5	use File::Spec;
  7	6	use File::Path;
  8	7	use IO::File;
  ......	@@ -64,7 +63,7 @@
  64	63	$self->{dir} =~ s/\:\:/-/g;
  65	64	$self->{script} = File::Spec->catdir( $self->{dir}, 'script' );
  66	65	$self->{appprefix} = Catalyst::Utils::appprefix($name);
  67		$self->{startperl} = $Config{startperl};
  	66	$self->{startperl} = '#!/usr/bin/perl -w';
  68	67	$self->{scriptgen} = $Catalyst::CATALYST_SCRIPT_GEN || 4;
  69	68	$self->{author} = $self->{author} = $ENV{'AUTHOR'}
  70	69	|| eval { @{ [ getpwuid($<) ] }[6] }

• /trunk/Catalyst/lib/Catalyst/PAR.pm

  ......	@@ -5,6 +5,7 @@
  5	5	use FindBin;
  6	6	use IO::File;
  7	7	use File::Spec;
  	8	use File::Find;
  8	9	require Catalyst;
  9	10
  10	11	=head1 NAME
  ......	@@ -43,6 +44,22 @@
  43	44	eval "use Module::ScanDeps ()";
  44	45	die "Please install Module::ScanDeps" if $@;
  45	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 =~ /\.par$/;
  	56	return if $name !~ /\w+/;
  	57	warn "$name\n";
  	58	push @files, $name;
  	59	},
  	60	'.'
  	61	);
  	62
  46	63	my $par_test = File::Spec->catfile( $FindBin::Bin, '..', 'par_test.pl' );
  47	64	unlink $par_test;
  48	65
  ......	@@ -56,28 +73,17 @@
  56	73	EOF
  57	74	$tmp_file->close;
  58	75
  59		# my $main = File::Spec->catfile( $FindBin::Bin, 'main.pl' );
  60		# unlink $main;
  61
  62		# my $version = $Catalyst::VERSION;
  63		# my $main_file = IO::File->new("> $main");
  64		# print $main_file <<"EOF";
  65		#print "$class on Catalyst $version.\\n";
  66		#EOF
  67		# $main_file->close;
  68
  69		chdir File::Spec->catdir( $FindBin::Bin, '..' );
  70		my %opt = ( 'x' => 1, 'n' => 0, 'o' => $par, 'a' => ['.'] );
  	76	# Create package
  	77	my %opt = ( 'x' => 1, 'n' => 0, 'o' => $par, 'a' => [@files] );
  71	78	App::Packer::PAR->new(
  72	79	frontend => 'Module::ScanDeps',
  73	80	backend => 'PAR::Packer',
  74	81	frontopts => \%opt,
  75	82	backopts => \%opt,
  76		args => [ 'par_test.pl' ],
  	83	args => ['par_test.pl'],
  77	84	)->go;
  78	85
  79	86	unlink $par_test;
  80		# unlink $main;
  81	87	}
  82	88
  83	89	=back