Commits

Anonymous committed cfbfe0d

Refactoring : top/non_top'ed _me_die.

Comments (0)

Files changed (1)

lib/File/Find/Object.pm

     return;
 }
 
-__PACKAGE__->_top_it([qw(_current)]);
+__PACKAGE__->_top_it([qw(_current _me_die)]);
 
 use Carp;
 
     }
 }
 
-sub _me_die {
+sub _top__me_die {
+    return 1;
+}
+
+sub _non_top__me_die {
     my $self = shift;
 
-    # TODO : Refactor this check - it appears several times.
-    if ($self->_is_top())
-    {
-        return 1;
-    }
+    $self->_become_default();
 
-    $self->_become_default();
     return 0;
 }