Distinguish cases when widget don't exists and other errors

When a custom widget contains compile errors, the user sees them.
And the error "Can't find widget..." will receive only if the
widget is really missing.

lib/HTML/FormHandler/Widget/ApplyRole.pm

@@ -3,6 +3,7 @@ package HTML::FormHandler::Widget::ApplyRole;
 use Moose::Role;
 use File::Spec;
 use Class::MOP;
+use Try::Tiny;
 
 our $ERROR;
 
@@ -21,11 +22,10 @@ sub get_widget_role {
         ('HTML::FormHandler::Widget', 'HTML::FormHandlerX::Widget') );
     foreach my $ns (@name_spaces) {
         my $render_role = $ns . $ldir . $widget_class;
-        if ( eval { Class::MOP::load_class($render_role) } ) {
-            return $render_role;
-        }
+        try { Class::MOP::load_class($render_role) } catch { die $_ unless $_ =~ /^Can't locate/; };
+        return $render_role if Class::MOP::is_class_loaded($render_role);
     }
-    die "not able to load $dir widget $widget_class from " . join(", ", @name_spaces);
+    die "Can't find $dir widget $widget_class from " . join(", ", @name_spaces);
 }
 
 # this is for compatibility with widget names like 'radio_group'

t/render_widgets.t

@@ -264,7 +264,7 @@ is( $form->field('omega')->render, '<h1>You got here!</h1>',     'omega rendered
     has_field 'no_widget' => ( widget => 'no_widget' );
 }
 dies_ok( sub { Test::NoWidget->new }, 'dies on no widget' );
-throws_ok( sub { Test::NoWidget->new }, qr/not able to load/, 'no widget throws message' );
+throws_ok( sub { Test::NoWidget->new }, qr/Can't find /, 'no widget throws message' );
 
 $form = Test::Form->new( widget_form => 'Table', widget_wrapper => 'Table' );
 ok( $form->can('render'), 'form has table widget' );