| 
					
				 | 
			
			
				@@ -360,7 +360,14 @@ sub line_parse($) { 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	} 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 } 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-# MAIN - split the input and parse it 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+# For testing module definitions 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+if ( $ARGV[1] eq "--import-test" ) { 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	my $mod_ref = parse_module_file($src_content); 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	print Dumper $mod_ref; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	exit 0; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+} 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+# MAIN starts here - split the input and parse it 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 foreach my $line ( split("\n", $src_content) ) { 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	chomp $line; 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	if ( $line eq "" ) { 
			 |