% include( '/elements/header.html', 'Developer Documentation' ) %> <& /elements/menubar.html, 'Freeside Perl Modules' => $fsurl.'docs/library/FS.html', 'Complete Index' => $fsurl.'docs/library/index.html', &>
Test::ScriptAge -- routines relating to the age of Perl scripts
my $executable_epoch = Test::ScriptAge::our_modification_epoch(); print 'This script was last modified at ' . localtime($executable_epoch) . "\n"; my $perl_epoch = Test::ScriptAge::perl_modification_epoch(); print 'Perl was last modified at ' . localtime($perl_epoch) . "\n";
Routines to calculated modification times of Perl scripts.
Find the test case named NAME.