Revision history for Perl extension Catalyst::Model::DBIC::Schema
+ - fix usage of Try::Tiny in helper
+
0.47 Wed Dec 8 22:21:06 UTC 2010
- fix loader version check
File::Spec->catfile($self->helper->{base}, 'lib', @schema_parts) . '.pm';
if (not -f $schema_pm) {
- try { Class::MOP::load_class('DBIx::Class::Schema::Loader') };
+ eval { Class::MOP::load_class('DBIx::Class::Schema::Loader') };
return 'Result' if $@;
my $schema_dir = File::Spec->catfile($helper->{base}, 'lib');
- try { Class::MOP::load_class('DBIx::Class::Schema::Loader') };
- die "Cannot load DBIx::Class::Schema::Loader: $@" if $@;
+ try {
+ Class::MOP::load_class('DBIx::Class::Schema::Loader')
+ }
+ catch {
+ die "Cannot load DBIx::Class::Schema::Loader: $_";
+ };
DBIx::Class::Schema::Loader->import(
"dump_to_dir:$schema_dir", 'make_schema_at'