view release on metacpan or  search on metacpan

lib/DBIx/Class/DeploymentHandler/DeployMethod/SQL/Translator.pm  view on Meta::CPAN

sub _load_sandbox {
  my $_file = shift;
  $_file = "$_file";

  my $_package = _generate_script_package_name($_file);

  my $fn = eval sprintf <<'END_EVAL', $_package;
package %s;
{
  our $app;
  $app ||= require $_file;
  if ( !$app && ( my $error = $@ || $! )) { die $error; }
  $app;
}
END_EVAL

  croak $@ if $@;

  croak "$_file should define an anonymous sub that takes a schema but it didn't!"
     unless ref $fn && ref $fn eq 'CODE';