sub encodeOne  ## no critic(Subroutines::ProhibitExcessComplexity)
{
   my $self = shift;
   my $objnode = shift;
   my $filtername = shift;

   (...)

      my $filt;
      eval {
         require Text::PDF::Filter;
         my $package = "Text::PDF::$filtername";
         $filt = $package->new;
         if (!$filt)
         {
            die;
         }
      };
      if ($EVAL_ERROR)
      {
         warn "Failed to open filter $filtername (Text::PDF::$filtername)\n";
         return 0;
      }
   (...)