|
@@ -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 "" ) {
|