[catagits/Catalyst-Runtime.git] / lib / Catalyst.pm

package Catalyst;

use strict;
use base 'Catalyst::Base';
use UNIVERSAL::require;
use Catalyst::Log;
use Catalyst::Utils;
use Text::ASCIITable;
use Path::Class;
our $CATALYST_SCRIPT_GEN = 4;

__PACKAGE__->mk_classdata($_) for qw/dispatcher engine log/;

our $VERSION = '5.23';
our @ISA;

=head1 NAME

Catalyst - The Elegant MVC Web Application Framework

=head1 SYNOPSIS

    # use the helper to start a new application
    catalyst.pl MyApp
    cd MyApp

    # add models, views, controllers
    script/create.pl model Something
    script/create.pl view Stuff
    script/create.pl controller Yada

    # built in testserver
    script/server.pl

    # command line interface
    script/test.pl /yada


    use Catalyst;

    use Catalyst qw/My::Module My::OtherModule/;

    use Catalyst '-Debug';

    use Catalyst qw/-Debug -Engine=CGI/;

    sub default : Private { $_[1]->res->output('Hello') } );

    sub index : Path('/index.html') {
        my ( $self, $c ) = @_;
        $c->res->output('Hello');
        $c->forward('foo');
    }

    sub product : Regex('^product[_]*(\d*).html$') {
        my ( $self, $c ) = @_;
        $c->stash->{template} = 'product.tt';
        $c->stash->{product} = $c->req->snippets->[0];
    }

See also L<Catalyst::Manual::Intro>

=head1 DESCRIPTION

Catalyst is based upon L<Maypole>, which you should consider for smaller
projects.

The key concept of Catalyst is DRY (Don't Repeat Yourself).

See L<Catalyst::Manual> for more documentation.

Catalyst plugins can be loaded by naming them as arguments to the "use Catalyst" statement.
Omit the C<Catalyst::Plugin::> prefix from the plugin name,
so C<Catalyst::Plugin::My::Module> becomes C<My::Module>.

    use Catalyst 'My::Module';

Special flags like -Debug and -Engine can also be specifed as arguments when
Catalyst is loaded:

    use Catalyst qw/-Debug My::Module/;

The position of plugins and flags in the chain is important, because they are
loaded in exactly the order that they appear.

The following flags are supported:

=over 4

=item -Debug

enables debug output, i.e.:

    use Catalyst '-Debug';

this is equivalent to:

    use Catalyst;
    sub debug { 1 }

=item -Engine

Force Catalyst to use a specific engine.
Omit the C<Catalyst::Engine::> prefix of the engine name, i.e.:

    use Catalyst '-Engine=CGI';

=back

=head1 METHODS

=over 4

=item debug

Overload to enable debug messages.

=cut

sub debug { 0 }

=item config

Returns a hashref containing your applications settings.

=cut

sub import {
    my ( $self, @options ) = @_;
    my $caller = caller(0);

    # Prepare inheritance
    unless ( $caller->isa($self) ) {
        no strict 'refs';
        push @{"$caller\::ISA"}, $self;
    }

    if ( $caller->engine ) {
        return;    # Catalyst is already initialized
    }

    unless ( $caller->log ) {
        $caller->log( Catalyst::Log->new );
    }

    # Debug?
    if ( $ENV{CATALYST_DEBUG} || $ENV{ uc($caller) . '_DEBUG' } ) {
        no strict 'refs';
        *{"$caller\::debug"} = sub { 1 };
        $caller->log->debug('Debug messages enabled');
    }

    my $engine     = 'Catalyst::Engine::CGI';
    my $dispatcher = 'Catalyst::Dispatcher';

    if ( $ENV{MOD_PERL} ) {

        my ( $software, $version ) = $ENV{MOD_PERL} =~ /^(\S+)\/(\d+(?:[\.\_]\d+)+)/;

        $version =~ s/_//g;
        $version =~ s/(\.[^.]+)\./$1/g;

        if ( $software eq 'mod_perl') {

            if ( $version >= 1.99922 ) {

                $engine = 'Catalyst::Engine::Apache::MP20';

                if ( Apache2::Request->require ) {
                    $engine = 'Catalyst::Engine::Apache::MP20::Apreq';
                }
            }

            elsif ( $version >= 1.9901 ) {

                $engine = 'Catalyst::Engine::Apache::MP19';

                if ( Apache::Request->require ) {
                    $engine = 'Catalyst::Engine::Apache::MP19::Apreq';
                }
            }

            elsif ( $version >= 1.24 ) {

                $engine = 'Catalyst::Engine::Apache::MP13';

                if ( Apache::Request->require ) {
                    $engine = 'Catalyst::Engine::Apache::MP13::Apreq';
                }
            }

            else {
                die( qq/Unsupported mod_perl version: $ENV{MOD_PERL}/ );
            }
        }

        elsif ( $software eq 'Zeus-Perl' ) {
            $engine = 'Catalyst::Engine::Zeus';
        }

        else {
            die( qq/Unsupported mod_perl: $ENV{MOD_PERL}/ );
        }
    }

    $caller->log->info( "You are running an old helper script! "
          . "Please update your scripts by regenerating the "
          . "application and copying over the new scripts." )
      if ( $ENV{CATALYST_SCRIPT_GEN}
        && ( $ENV{CATALYST_SCRIPT_GEN} < $CATALYST_SCRIPT_GEN ) );

    # Process options
    my @plugins;
    foreach (@options) {

        if (/^\-Debug$/) {
            next if $caller->debug;
            no strict 'refs';
            *{"$caller\::debug"} = sub { 1 };
            $caller->log->debug('Debug messages enabled');
        }

        elsif (/^-Dispatcher=(.*)$/) {
            $dispatcher = "Catalyst::Dispatcher::$1";
        }

        elsif (/^-Engine=(.*)$/) { $engine = "Catalyst::Engine::$1" }
        elsif (/^-.*$/) { $caller->log->error(qq/Unknown flag "$_"/) }

        else {
            my $plugin = "Catalyst::Plugin::$_";

            $plugin->require;

            if ($@) { die qq/Couldn't load plugin "$plugin", "$@"/ }
            else {
                push @plugins, $plugin;
                no strict 'refs';
                push @{"$caller\::ISA"}, $plugin;
            }
        }

    }

    # Plugin table
    my $t = Text::ASCIITable->new( { hide_HeadRow => 1, hide_HeadLine => 1 } );
    $t->setCols('Class');
    $t->setColWidth( 'Class', 75, 1 );
    $t->addRow($_) for @plugins;
    $caller->log->debug( 'Loaded plugins', $t->draw )
      if ( @plugins && $caller->debug );

    # Dispatcher
    $dispatcher = "Catalyst::Dispatcher::$ENV{CATALYST_DISPATCHER}"
      if $ENV{CATALYST_DISPATCHER};
    my $appdis = $ENV{ uc($caller) . '_DISPATCHER' };
    $dispatcher = "Catalyst::Dispatcher::$appdis" if $appdis;

    $dispatcher->require;
    die qq/Couldn't load dispatcher "$dispatcher", "$@"/ if $@;
    {
        no strict 'refs';
        push @{"$caller\::ISA"}, $dispatcher;
    }
    $caller->dispatcher($dispatcher);
    $caller->log->debug(qq/Loaded dispatcher "$dispatcher"/) if $caller->debug;

    # Engine
    $engine = "Catalyst::Engine::$ENV{CATALYST_ENGINE}"
      if $ENV{CATALYST_ENGINE};
    my $appeng = $ENV{ uc($caller) . '_ENGINE' };
    $engine = "Catalyst::Engine::$appeng" if $appeng;

    $engine->require;
    die qq/Couldn't load engine "$engine", "$@"/ if $@;

    {
        no strict 'refs';
        push @{"$caller\::ISA"}, $engine;
    }

    $caller->engine($engine);
    $caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug;

    # Find home
    my $home = Catalyst::Utils::home($caller);

    if ( my $h = $ENV{CATALYST_HOME} ) {

        $home = $h if -d $h;

        unless ( -e _ ) {
            $caller->log->warn(qq/CATALYST_HOME does not exist "$h"/);
        }

        unless ( -e _ && -d _ ) {
            $caller->log->warn(qq/CATALYST_HOME is not a directory "$h"/);
        }
    }

    if ( my $h = $ENV{ uc($caller) . '_HOME' } ) {

        $home = $h if -d $h;

        unless ( -e _ ) {
            my $e = uc($caller) . '_HOME';
            $caller->log->warn(qq/$e does not exist "$h"/)
        }

        unless ( -e _ && -d _ ) {
            my $e = uc($caller) . '_HOME';
            $caller->log->warn(qq/$e is not a directory "$h"/);
        }
    }
    
    if ( -d $home ) {
        $home = dir($home)->absolute;
    }

    if ( $caller->debug ) {
        $home
          ? ( -d $home )
          ? $caller->log->debug(qq/Found home "$home"/)
          : $caller->log->debug(qq/Home "$home" doesn't exist/)
          : $caller->log->debug(q/Couldn't find home/);
    }
    $caller->config->{home} = $home || '';
    $caller->config->{root} = defined $home ? dir($home)->subdir('root') : '';
}

=item $c->engine

Contains the engine class.

=item $c->log

Contains the logging object.  Unless it is already set Catalyst sets this up with a
C<Catalyst::Log> object.  To use your own log class:

    $c->log( MyLogger->new );
    $c->log->info("now logging with my own logger!");

Your log class should implement the methods described in the C<Catalyst::Log>
man page.

=item $c->plugin( $name, $class, @args )

Instant plugins for Catalyst.
Classdata accessor/mutator will be created, class loaded and instantiated.

    MyApp->plugin( 'prototype', 'HTML::Prototype' );

    $c->prototype->define_javascript_functions;

=cut

sub plugin {
    my ( $class, $name, $plugin, @args ) = @_;
    $plugin->require;
    my $error = $UNIVERSAL::require::ERROR;
    die qq/Couldn't load instant plugin "$plugin", "$error"/ if $error;
    eval { $plugin->import };
    $class->mk_classdata($name);
    my $obj;
    eval { $obj = $plugin->new(@args) };
    die qq/Couldn't instantiate instant plugin "$plugin", "$@"/ if $@;
    $class->$name($obj);
    $class->log->debug(qq/Initialized instant plugin "$plugin" as "$name"/)
      if $class->debug;
}

=back

=head1 LIMITATIONS

mod_perl2 support is considered experimental and may contain bugs.

=head1 SUPPORT

IRC:

    Join #catalyst on irc.perl.org.

Mailing-Lists:

    http://lists.rawmode.org/mailman/listinfo/catalyst
    http://lists.rawmode.org/mailman/listinfo/catalyst-dev

Web:

    http://catalyst.perl.org

=head1 SEE ALSO

=over 4

=item L<Catalyst::Manual> - The Catalyst Manual

=item L<Catalyst::Engine> - Core Engine

=item L<Catalyst::Log> - The Log Class.

=item L<Catalyst::Request> - The Request Object

=item L<Catalyst::Response> - The Response Object

=item L<Catalyst::Test> - The test suite.

=back

=head1 AUTHOR

Sebastian Riedel, C<sri@oook.de>

=head1 THANK YOU

Andy Grundman, Andrew Ford, Andrew Ruthven, Autrijus Tang, Christian Hansen,
Christopher Hicks, Dan Sully, Danijel Milicevic, David Naughton,
Gary Ashton Jones, Geoff Richards, Jesse Sheidlower, Jody Belka,
Johan Lindstrom, Juan Camacho, Leon Brocard, Marcus Ramberg,
Tatsuhiko Miyagawa and all the others who've helped.

=head1 LICENSE

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

=cut

1;
Commit	Line	Data
fc7ec1d9	1	package Catalyst;
	2
	3	use strict;
ac733264	4	use base 'Catalyst::Base';
fc7ec1d9	5	use UNIVERSAL::require;
fc7ec1d9	6	use Catalyst::Log;
812a28c9	7	use Catalyst::Utils;
0f7ecc53	8	use Text::ASCIITable;
4f6748f1	9	use Path::Class;
367d15f8	10	our $CATALYST_SCRIPT_GEN = 4;
fc7ec1d9	11
424b2705	12	__PACKAGE__->mk_classdata($_) for qw/dispatcher engine log/;
fc7ec1d9	13
a268a011	14	our $VERSION = '5.23';
fc7ec1d9	15	our @ISA;
	16
	17	=head1 NAME
	18
	19	Catalyst - The Elegant MVC Web Application Framework
	20
	21	=head1 SYNOPSIS
	22
	23	# use the helper to start a new application
91864987	24	catalyst.pl MyApp
fc7ec1d9	25	cd MyApp
	26
	27	# add models, views, controllers
d01df17d	28	script/create.pl model Something
	29	script/create.pl view Stuff
	30	script/create.pl controller Yada
fc7ec1d9	31
fc7ec1d9	32	# built in testserver
d01df17d	33	script/server.pl
fc7ec1d9	34
fc7ec1d9	35	# command line interface
d01df17d	36	script/test.pl /yada
fc7ec1d9	37
fc7ec1d9	38
fc7ec1d9	39	use Catalyst;
	40
	41	use Catalyst qw/My::Module My::OtherModule/;
	42
	43	use Catalyst '-Debug';
	44
	45	use Catalyst qw/-Debug -Engine=CGI/;
	46
5a8ed4fe	47	sub default : Private { $_[1]->res->output('Hello') } );
5a8ed4fe	48
e3dc9d78	49	sub index : Path('/index.html') {
5a8ed4fe	50	my ( $self, $c ) = @_;
5a8ed4fe	51	$c->res->output('Hello');
064834ea	52	$c->forward('foo');
5a8ed4fe	53	}
5a8ed4fe	54
064834ea	55	sub product : Regex('^product[_](\d).html$') {
5a8ed4fe	56	my ( $self, $c ) = @_;
	57	$c->stash->{template} = 'product.tt';
	58	$c->stash->{product} = $c->req->snippets->[0];
	59	}
fc7ec1d9	60
3803e98f	61	See also L<Catalyst::Manual::Intro>
3803e98f	62
fc7ec1d9	63	=head1 DESCRIPTION
	64
	65	Catalyst is based upon L<Maypole>, which you should consider for smaller
	66	projects.
	67
	68	The key concept of Catalyst is DRY (Don't Repeat Yourself).
	69
	70	See L<Catalyst::Manual> for more documentation.
	71
23f9d934	72	Catalyst plugins can be loaded by naming them as arguments to the "use Catalyst" statement.
1985c30b	73	Omit the C<Catalyst::Plugin::> prefix from the plugin name,
23f9d934	74	so C<Catalyst::Plugin::My::Module> becomes C<My::Module>.
fc7ec1d9	75
	76	use Catalyst 'My::Module';
	77
23f9d934	78	Special flags like -Debug and -Engine can also be specifed as arguments when
23f9d934	79	Catalyst is loaded:
fc7ec1d9	80
	81	use Catalyst qw/-Debug My::Module/;
	82
23f9d934	83	The position of plugins and flags in the chain is important, because they are
23f9d934	84	loaded in exactly the order that they appear.
fc7ec1d9	85
23f9d934	86	The following flags are supported:
	87
	88	=over 4
	89
	90	=item -Debug
	91
	92	enables debug output, i.e.:
fc7ec1d9	93
	94	use Catalyst '-Debug';
	95
23f9d934	96	this is equivalent to:
fc7ec1d9	97
	98	use Catalyst;
	99	sub debug { 1 }
	100
23f9d934	101	=item -Engine
fc7ec1d9	102
fc7ec1d9	103	Force Catalyst to use a specific engine.
23f9d934	104	Omit the C<Catalyst::Engine::> prefix of the engine name, i.e.:
fc7ec1d9	105
	106	use Catalyst '-Engine=CGI';
	107
23f9d934	108	=back
fc7ec1d9	109
23f9d934	110	=head1 METHODS
	111
	112	=over 4
	113
	114	=item debug
fc7ec1d9	115
	116	Overload to enable debug messages.
	117
	118	=cut
	119
	120	sub debug { 0 }
	121
23f9d934	122	=item config
fc7ec1d9	123
	124	Returns a hashref containing your applications settings.
	125
	126	=cut
	127
fc7ec1d9	128	sub import {
	129	my ( $self, @options ) = @_;
	130	my $caller = caller(0);
	131
99fe1710	132	# Prepare inheritance
22402712	133	unless ( $caller->isa($self) ) {
fc7ec1d9	134	no strict 'refs';
22402712	135	push @{"$caller\::ISA"}, $self;
1c99e125	136	}
1c99e125	137
d96e14c2	138	if ( $caller->engine ) {
42a57832	139	return; # Catalyst is already initialized
d96e14c2	140	}
d96e14c2	141
32620e3e	142	unless ( $caller->log ) {
32620e3e	143	$caller->log( Catalyst::Log->new );
fc7ec1d9	144	}
fc7ec1d9	145
99fe1710	146	# Debug?
1985c30b	147	if ( $ENV{CATALYST_DEBUG} \|\| $ENV{ uc($caller) . '_DEBUG' } ) {
	148	no strict 'refs';
	149	*{"$caller\::debug"} = sub { 1 };
	150	$caller->log->debug('Debug messages enabled');
	151	}
	152
424b2705	153	my $engine = 'Catalyst::Engine::CGI';
424b2705	154	my $dispatcher = 'Catalyst::Dispatcher';
6dc87a0f	155
	156	if ( $ENV{MOD_PERL} ) {
	157
316bf0f0	158	my ( $software, $version ) = $ENV{MOD_PERL} =~ /^(\S+)\/(\d+(?:[\.\_]\d+)+)/;
	159
	160	$version =~ s/_//g;
	161	$version =~ s/(\.[^.]+)\./$1/g;
	162
	163	if ( $software eq 'mod_perl') {
	164
	165	if ( $version >= 1.99922 ) {
	166
	167	$engine = 'Catalyst::Engine::Apache::MP20';
	168
	169	if ( Apache2::Request->require ) {
566ee5d7	170	$engine = 'Catalyst::Engine::Apache::MP20::Apreq';
316bf0f0	171	}
	172	}
	173
	174	elsif ( $version >= 1.9901 ) {
	175
	176	$engine = 'Catalyst::Engine::Apache::MP19';
	177
	178	if ( Apache::Request->require ) {
566ee5d7	179	$engine = 'Catalyst::Engine::Apache::MP19::Apreq';
316bf0f0	180	}
	181	}
	182
	183	elsif ( $version >= 1.24 ) {
	184
	185	$engine = 'Catalyst::Engine::Apache::MP13';
	186
	187	if ( Apache::Request->require ) {
566ee5d7	188	$engine = 'Catalyst::Engine::Apache::MP13::Apreq';
316bf0f0	189	}
316bf0f0	190	}
d837e1a7	191
316bf0f0	192	else {
	193	die( qq/Unsupported mod_perl version: $ENV{MOD_PERL}/ );
	194	}
6dc87a0f	195	}
d837e1a7	196
316bf0f0	197	elsif ( $software eq 'Zeus-Perl' ) {
316bf0f0	198	$engine = 'Catalyst::Engine::Zeus';
6dc87a0f	199	}
d837e1a7	200
d837e1a7	201	else {
316bf0f0	202	die( qq/Unsupported mod_perl: $ENV{MOD_PERL}/ );
d837e1a7	203	}
6dc87a0f	204	}
1985c30b	205
300aea89	206	$caller->log->info( "You are running an old helper script! "
	207	. "Please update your scripts by regenerating the "
	208	. "application and copying over the new scripts." )
	209	if ( $ENV{CATALYST_SCRIPT_GEN}
87232381	210	&& ( $ENV{CATALYST_SCRIPT_GEN} < $CATALYST_SCRIPT_GEN ) );
300aea89	211
99fe1710	212	# Process options
937fcdd8	213	my @plugins;
fc7ec1d9	214	foreach (@options) {
99fe1710	215
fc7ec1d9	216	if (/^\-Debug$/) {
1985c30b	217	next if $caller->debug;
fc7ec1d9	218	no strict 'refs';
1c99e125	219	*{"$caller\::debug"} = sub { 1 };
fc7ec1d9	220	$caller->log->debug('Debug messages enabled');
fc7ec1d9	221	}
99fe1710	222
424b2705	223	elsif (/^-Dispatcher=(.*)$/) {
	224	$dispatcher = "Catalyst::Dispatcher::$1";
	225	}
99fe1710	226
fc7ec1d9	227	elsif (/^-Engine=(.*)$/) { $engine = "Catalyst::Engine::$1" }
fc7ec1d9	228	elsif (/^-.*$/) { $caller->log->error(qq/Unknown flag "$_"/) }
99fe1710	229
fc7ec1d9	230	else {
	231	my $plugin = "Catalyst::Plugin::$_";
	232
c4695f3a	233	$plugin->require;
91dc9907	234
f88238ea	235	if ($@) { die qq/Couldn't load plugin "$plugin", "$@"/ }
fc7ec1d9	236	else {
f5f84847	237	push @plugins, $plugin;
502619e5	238	no strict 'refs';
502619e5	239	push @{"$caller\::ISA"}, $plugin;
fc7ec1d9	240	}
fc7ec1d9	241	}
99fe1710	242
fc7ec1d9	243	}
99fe1710	244
99fe1710	245	# Plugin table
d2d570d4	246	my $t = Text::ASCIITable->new( { hide_HeadRow => 1, hide_HeadLine => 1 } );
0f7ecc53	247	$t->setCols('Class');
0822f9a4	248	$t->setColWidth( 'Class', 75, 1 );
cd677e12	249	$t->addRow($_) for @plugins;
0f7ecc53	250	$caller->log->debug( 'Loaded plugins', $t->draw )
937fcdd8	251	if ( @plugins && $caller->debug );
fc7ec1d9	252
424b2705	253	# Dispatcher
	254	$dispatcher = "Catalyst::Dispatcher::$ENV{CATALYST_DISPATCHER}"
	255	if $ENV{CATALYST_DISPATCHER};
367d15f8	256	my $appdis = $ENV{ uc($caller) . '_DISPATCHER' };
367d15f8	257	$dispatcher = "Catalyst::Dispatcher::$appdis" if $appdis;
424b2705	258
	259	$dispatcher->require;
	260	die qq/Couldn't load dispatcher "$dispatcher", "$@"/ if $@;
	261	{
	262	no strict 'refs';
	263	push @{"$caller\::ISA"}, $dispatcher;
	264	}
	265	$caller->dispatcher($dispatcher);
	266	$caller->log->debug(qq/Loaded dispatcher "$dispatcher"/) if $caller->debug;
	267
e8bf1b2d	268	# Engine
	269	$engine = "Catalyst::Engine::$ENV{CATALYST_ENGINE}"
	270	if $ENV{CATALYST_ENGINE};
367d15f8	271	my $appeng = $ENV{ uc($caller) . '_ENGINE' };
367d15f8	272	$engine = "Catalyst::Engine::$appeng" if $appeng;
e8bf1b2d	273
	274	$engine->require;
	275	die qq/Couldn't load engine "$engine", "$@"/ if $@;
d837e1a7	276
e8bf1b2d	277	{
	278	no strict 'refs';
	279	push @{"$caller\::ISA"}, $engine;
	280	}
d837e1a7	281
e8bf1b2d	282	$caller->engine($engine);
e8bf1b2d	283	$caller->log->debug(qq/Loaded engine "$engine"/) if $caller->debug;
4f6748f1	284
4f6748f1	285	# Find home
812a28c9	286	my $home = Catalyst::Utils::home($caller);
895b2303	287
	288	if ( my $h = $ENV{CATALYST_HOME} ) {
	289
	290	$home = $h if -d $h;
	291
	292	unless ( -e _ ) {
	293	$caller->log->warn(qq/CATALYST_HOME does not exist "$h"/);
	294	}
	295
	296	unless ( -e _ && -d _ ) {
	297	$caller->log->warn(qq/CATALYST_HOME is not a directory "$h"/);
	298	}
	299	}
	300
	301	if ( my $h = $ENV{ uc($caller) . '_HOME' } ) {
	302
	303	$home = $h if -d $h;
	304
	305	unless ( -e _ ) {
	306	my $e = uc($caller) . '_HOME';
	307	$caller->log->warn(qq/$e does not exist "$h"/)
	308	}
	309
	310	unless ( -e _ && -d _ ) {
	311	my $e = uc($caller) . '_HOME';
	312	$caller->log->warn(qq/$e is not a directory "$h"/);
	313	}
	314	}
c571e72b	315
	316	if ( -d $home ) {
	317	$home = dir($home)->absolute;
	318	}
895b2303	319
4f6748f1	320	if ( $caller->debug ) {
	321	$home
	322	? ( -d $home )
	323	? $caller->log->debug(qq/Found home "$home"/)
	324	: $caller->log->debug(qq/Home "$home" doesn't exist/)
	325	: $caller->log->debug(q/Couldn't find home/);
	326	}
75aeff23	327	$caller->config->{home} = $home \|\| '';
75aeff23	328	$caller->config->{root} = defined $home ? dir($home)->subdir('root') : '';
fc7ec1d9	329	}
fc7ec1d9	330
70cb38f0	331	=item $c->engine
	332
	333	Contains the engine class.
	334
145074c2	335	=item $c->log
	336
	337	Contains the logging object. Unless it is already set Catalyst sets this up with a
	338	C<Catalyst::Log> object. To use your own log class:
	339
	340	$c->log( MyLogger->new );
	341	$c->log->info("now logging with my own logger!");
	342
	343	Your log class should implement the methods described in the C<Catalyst::Log>
	344	man page.
	345
87232381	346	=item $c->plugin( $name, $class, @args )
	347
	348	Instant plugins for Catalyst.
	349	Classdata accessor/mutator will be created, class loaded and instantiated.
	350
	351	MyApp->plugin( 'prototype', 'HTML::Prototype' );
	352
	353	$c->prototype->define_javascript_functions;
	354
	355	=cut
	356
	357	sub plugin {
	358	my ( $class, $name, $plugin, @args ) = @_;
	359	$plugin->require;
	360	my $error = $UNIVERSAL::require::ERROR;
	361	die qq/Couldn't load instant plugin "$plugin", "$error"/ if $error;
	362	eval { $plugin->import };
	363	$class->mk_classdata($name);
	364	my $obj;
	365	eval { $obj = $plugin->new(@args) };
	366	die qq/Couldn't instantiate instant plugin "$plugin", "$@"/ if $@;
	367	$class->$name($obj);
	368	$class->log->debug(qq/Initialized instant plugin "$plugin" as "$name"/)
	369	if $class->debug;
	370	}
145074c2	371
23f9d934	372	=back
23f9d934	373
d1a31ac6	374	=head1 LIMITATIONS
d1a31ac6	375
b2b7d352	376	mod_perl2 support is considered experimental and may contain bugs.
d1a31ac6	377
3cb1db8c	378	=head1 SUPPORT
	379
	380	IRC:
	381
	382	Join #catalyst on irc.perl.org.
	383
	384	Mailing-Lists:
	385
	386	http://lists.rawmode.org/mailman/listinfo/catalyst
	387	http://lists.rawmode.org/mailman/listinfo/catalyst-dev
1985c30b	388
432d507d	389	Web:
	390
	391	http://catalyst.perl.org
	392
fc7ec1d9	393	=head1 SEE ALSO
fc7ec1d9	394
61b1e958	395	=over 4
	396
	397	=item L<Catalyst::Manual> - The Catalyst Manual
	398
	399	=item L<Catalyst::Engine> - Core Engine
	400
	401	=item L<Catalyst::Log> - The Log Class.
	402
	403	=item L<Catalyst::Request> - The Request Object
	404
	405	=item L<Catalyst::Response> - The Response Object
	406
	407	=item L<Catalyst::Test> - The test suite.
	408
	409	=back
fc7ec1d9	410
	411	=head1 AUTHOR
	412
	413	Sebastian Riedel, C<sri@oook.de>
	414
	415	=head1 THANK YOU
	416
84cf74e7	417	Andy Grundman, Andrew Ford, Andrew Ruthven, Autrijus Tang, Christian Hansen,
ce2b098c	418	Christopher Hicks, Dan Sully, Danijel Milicevic, David Naughton,
75aeff23	419	Gary Ashton Jones, Geoff Richards, Jesse Sheidlower, Jody Belka,
9cee9588	420	Johan Lindstrom, Juan Camacho, Leon Brocard, Marcus Ramberg,
9cee9588	421	Tatsuhiko Miyagawa and all the others who've helped.
fc7ec1d9	422
	423	=head1 LICENSE
	424
	425	This library is free software . You can redistribute it and/or modify it under
	426	the same terms as perl itself.
	427
	428	=cut
	429
	430	1;