Commits

shl...@52c325ad-5fd0-0310-8a0f-c43feede02cc  committed 324d6df

Refactoring - extracted the get_pathfinder_obj method for easy over-riding.

  • Participants
  • Parent commits cb76577

Comments (0)

Files changed (1)

File perl/modules/XML-SemanaticDiff/lib/XML/SemanticDiff.pm

     return $specifier !~ /\n/g && -f $specifier;
 }
 
+sub _get_pathfinder_obj {
+    my $self = shift;
+
+    return XML::SemanticDiff::PathFinder::Obj->new();
+}
+
 sub read_xml {
     my $self = shift;
 
     }
     else
     {
-        my $path_finder = XML::SemanticDiff::PathFinder::Obj->new();
-        $self->{path_finder_obj} = $path_finder;
+        $self->{path_finder_obj} = $self->_get_pathfinder_obj();
 
         my $p = XML::Parser->new(
             Style => 'Stream',