package Mason::TestHandler; use strict; use warnings; use HTML::Mason::ApacheHandler; our @ISA = qw(HTML::Mason::ApacheHandler); sub handler { my($r) = @_; # Remember, $r contains a virtual filename (does not exist on disk). my @fileList = someMagicToGetFiles($r); my $testPath = $fileList[0]; # ... VARIOUS ATTEMPTS GO HERE ... # }