#!/usr/bin/perl -w

{ package Debug;
  use warnings; use strict;
  our (@ISA,@EXPORT,$DBGOPS);
  use mem;
  use mem(@ISA=qw(Exporter), @EXPORT=qw( Debug Filename2Fields HaltOnError);
  use Exporter;
  use P;

  use constant Filename2Fields  =>  1;  
  use constant HaltOnError      =>  Filename2Fields << 1; 


  sub Debug($$;@) { shift & $DBGOPS &&  Pe shift,@_ }
1};
###################################################
{ package Transcode_plug;
  use warnings; use strict;
  our (@ISA, @EXPORT);
  use mem;
  use mem(@ISA=qw(Exporter), @EXPORT=qw( album get_fieldAR_from_filename);
  use Exporter;
  use Debug;
  
  sub album() {$_[0]->};

  sub get_fieldAR_from_filename($) { 
    Debug(Filename2Fields, "get_fieldAR_from_filename(%s)", $_[0]);
  }
1}
#####################################################
package main;
use Transcode_plug;
use P;
P "Main is running";
# Now see that even prototype parsing works properly:
P "OK";

get_fieldAR_from_filename "Foo";