eval replaced with try

fa2ad761 · Tiago Grego · 282c2582 · fa2ad761
Commit fa2ad761 authored Sep 28, 2018 by Tiago Grego
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 7 deletions

modules/Bio/EnsEMBL/IO/Parser.pm modules/Bio/EnsEMBL/IO/Parser.pm +8 -7

No files found.
--- a/modules/Bio/EnsEMBL/IO/Parser.pm
+++ b/modules/Bio/EnsEMBL/IO/Parser.pm
@@ -41,6 +41,7 @@ use strict;
 use warnings;

 use Carp;
+use Try::Tiny;
 use Bio::EnsEMBL::IO::Utils;

 =head2 new
@@ -294,13 +295,13 @@ sub _open_as {

    if ($subclass) {
      my $class = 'Bio::EnsEMBL::IO::Parser::'.$subclass;
-      eval "require $class";
-      if ($@) {
-      }
-      else {
-        my $object = eval { $class->$method(@other_args); }; 
-        return $object;
-      }
+      my $object;
+
+      try {
+        $object = $class->$method(@other_args);
+      };
+
+      return $object;
    }
 }