sub _build_schema {
my ($self) = @_;
- require Class::C3::Componentised;
- Class::C3::Componentised->ensure_class_loaded($self->schema_class);
+ require Class::MOP;
+ Class::MOP::load_class($self->schema_class);
$self->connect_info->[3]->{ignore_version} =1;
return $self->schema_class->connect(@{$self->connect_info()} ); # , $self->connect_info->[3], { ignore_version => 1} );
sub _build_config {
my ($self) = @_;
- eval { require Config::Any }
- or die ("Config::Any is required to parse the config file.\n");
+ try { require Config::Any }
+ catch { die ("Config::Any is required to parse the config file.\n") };
my $cfg = Config::Any->load_files ( {files => [$self->config_file], use_ext =>1, flatten_to_hash=>1});