#!/usr/bin/perl -w
use 5.12.0;
use warnings FATAL => 'all';

BEGIN { # Added this because that's how "use" works
package Debug;{ 
    use Exporter 'import';
    our @EXPORT=qw( Debug $Filename2Fields);
    
    
    my %dop = (
            Filename2Fields	=>	1,
            HaltOnError			=>	2,
    );

    our $Filename2Fields= $dop{Filename2Fields};
    our $HaltOnError	= $dop{HaltOnError};
    sub Debug($$) {
            my ($what,  $str)=@_;
            print STDERR $str;
    }
};
}

BEGIN { # Added this because that's how "use" works
package Transcode_plug;{
    use strict;
    use Exporter 'import';
    BEGIN { Debug->import() };
    our @EXPORT=qw( album get_fieldAR_from_filename ); 
    
    sub album {};

    sub get_fieldAR_from_filename($) {
        my $file=$_[0];
        Debug($Filename2Fields,"get_fieldAR_from_filename($file)\n");
    }
};
}

package main;
BEGIN {
    Transcode_plug->import;
};
print "Main is running\n";

# Now see that even prototype parsing works properly:

print "OK\n";

get_fieldAR_from_filename "Foo";

# vim: ts=2 sw=2