Re: I'd like to have an indication when the interpreter moves to the next file (using Filter-Include)?

There is no way to do this through the current interface, but you can bodge it e.g

BEGIN {
  require Filter::Include;
  my $old_source = *Filter::Include::source{CODE};
  *Filter::Include::source = sub {
    print "Including $_[0]\n";
    goto &$old_source;
  };
  Filter::Include->import;
}
[download]

I could add this feature to the module if you'd like (probably as an import() parameter), it could do with some tidying up anyhow.

HTH

_________ broquaint

Comment on Re: I'd like to have an indication when the interpreter moves to the next file (using Filter-Include)? Download Code

Replies are listed 'Best First'.
Re^2: I'd like to have an indication when the interpreter moves to the next file (using Filter-Include)? by mosh (Scribe) on Jul 14, 2005 at 14:25 UTC
I'd be grateful if you add this feature to the module.	[reply]