This file documents the revision history for Perl extension Catalyst.
+ - Removed dependency on UNIVERSAL::require
- Split out Catalyst::Helper into a new distribution
- un-bundled the plugins as they are now pre-reqs for Catalyst::Helper
- nuked each() out of core with prejudice (due to lurking buglets)
all_from 'lib/Catalyst.pm';
requires 'perl' => '5.8.1';
-requires 'UNIVERSAL::require' => "0.10";
requires 'Carp';
requires 'Class::Accessor::Fast';
requires 'Class::Data::Inheritable';
requires 'Data::Dump';
requires 'File::Modified';
requires 'HTML::Entities';
-requires 'HTTP::Body' => 0.5;
-requires 'HTTP::Headers' => 1.64;
+requires 'HTTP::Body' => '0.5';
+requires 'HTTP::Headers' => '1.64';
requires 'HTTP::Request';
requires 'HTTP::Response';
requires 'HTTP::Request::AsCGI' => '0.5';
requires 'LWP::UserAgent';
requires 'Module::Pluggable::Fast' => 0.16;
requires 'NEXT';
-requires 'Path::Class' => 0.09;
+requires 'Path::Class' => '0.09';
requires 'Scalar::Util';
-requires 'Text::SimpleTable' => 0.03;
+requires 'Text::SimpleTable' => '0.03';
requires 'Test::MockObject';
-requires 'Test::NoWarnings' => 0.082;
+requires 'Test::NoWarnings' => '0.082';
requires 'Time::HiRes';
-requires 'Tree::Simple' => 1.15;
+requires 'Tree::Simple' => '1.15';
requires 'Tree::Simple::Visitor::FindByPath';
-requires 'URI' => 1.35;
+requires 'URI' => '1.35';
feature 'Apache/mod_perl Support',
-default => 0,
use strict;
use base 'Catalyst::Component';
use bytes;
-use UNIVERSAL::require;
use Catalyst::Exception;
use Catalyst::Log;
use Catalyst::Request;
$dispatcher = $class->dispatcher_class;
}
- $dispatcher->require;
-
- if ($@) {
- Catalyst::Exception->throw(
- message => qq/Couldn't load dispatcher "$dispatcher", "$@"/ );
+ unless (Class::Inspector->loaded($dispatcher)) {
+ require Class::Inspector->filename($dispatcher);
}
# dispatcher instance
$engine = $class->engine_class;
}
- $engine->require;
-
- if ($@) {
- Catalyst::Exception->throw( message =>
-qq/Couldn't load engine "$engine" (maybe you forgot to install it?), "$@"/
- );
+ unless (Class::Inspector->loaded($engine)) {
+ require Class::Inspector->filename($engine);
}
# check for old engines that are no longer compatible
my ( $proto, $plugin, $instant ) = @_;
my $class = ref $proto || $proto;
- $plugin->require;
-
- if ( my $error = $@ ) {
- my $type = $instant ? "instant " : '';
- Catalyst::Exception->throw(
- message => qq/Couldn't load ${type}plugin "$plugin", $error/ );
+ unless (Class::Inspector->loaded($plugin)) {
+ require Class::Inspector->filename($plugin);
}
$proto->_plugins->{$plugin} = 1;
: $self->_action_class);
unless ( Class::Inspector->loaded($class) ) {
- $class->require;
- die "Couldn't load action class ${class}: $@" if $@;
+ require Class::Inspector->filename($class);
}
return $class->new( \%args );
use strict;
use vars qw[@ISA $CATALYST_EXCEPTION_CLASS];
-use UNIVERSAL::require;
BEGIN {
push( @ISA, $CATALYST_EXCEPTION_CLASS || 'Catalyst::Exception::Base' );
use Catalyst::Exception;
use Catalyst::Utils;
use Class::Inspector;
-use UNIVERSAL::require;
=head1 NAME
else {
unless( Class::Inspector->loaded( $class ) ) {
- $class->require;
- die $@ if $@;
+ require Class::Inspector->filename( $class );
}
$class->import;