package OSM::Tree::WayMerger ;
use OSM::Tree::Helper;
use strict;
use warnings;
use Data::Dumper;
# JT Log-File-PM
use Log::File;

use base qw (Exporter AutoLoader);
our $version='0.1';
our @EXPORT = qw (osmtree_waymerger
               	  ) ;
				  ...
sub osmtree_waymerger { waymerger(@_); }
sub waymerger
{
  my @data = shift;
  my $log = shift;				  
...
#nachfolgend Zeile 126
$log->doublewrite("-- suchen der Anschluss-Elemente ---");