[catagits/Gitalist.git] / script / gitalist_cgi.pl

#!/usr/bin/perl

use FindBin;
BEGIN {
    my $env = "$FindBin::Bin/env";
    if (-r $env) {
        do $env or die $@;
    }
}

use Catalyst::ScriptRunner;
Catalyst::ScriptRunner->run('Gitalist', 'CGI');

1;

=head1 NAME

gitalist_cgi.pl - Catalyst CGI

=head1 SYNOPSIS

See L<Catalyst::Manual>

=head1 DESCRIPTION

Run a Catalyst application as a cgi script.

=head1 AUTHORS

Catalyst Contributors, see Catalyst.pm

=head1 COPYRIGHT

This library is free software. You can redistribute it and/or modify
it under the same terms as Perl itself.

=cut
Commit	Line	Data
ba331b70	1	#!/usr/bin/perl
89de6a33	2
42b626cd	3	use FindBin;
4b3ff1cd	4	BEGIN {
c7d034f8	5	my $env = "$FindBin::Bin/env";
4b3ff1cd	6	if (-r $env) {
	7	do $env or die $@;
	8	}
	9	}
42b626cd	10
df097c84	11	use Catalyst::ScriptRunner;
df097c84	12	Catalyst::ScriptRunner->run('Gitalist', 'CGI');
89de6a33	13
	14	1;
	15
	16	=head1 NAME
	17
	18	gitalist_cgi.pl - Catalyst CGI
	19
	20	=head1 SYNOPSIS
	21
	22	See L<Catalyst::Manual>
	23
	24	=head1 DESCRIPTION
	25
	26	Run a Catalyst application as a cgi script.
	27
	28	=head1 AUTHORS
	29
	30	Catalyst Contributors, see Catalyst.pm
	31
	32	=head1 COPYRIGHT
	33
89de6a33	34	This library is free software. You can redistribute it and/or modify
	35	it under the same terms as Perl itself.
	36
	37	=cut
df097c84	38