view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

templates/perl/package/MANIFEST
templates/perl/package/Build.PL
templates/perl/package/gtk2.pl
templates/perl/package/LICENSE
templates/perl/package/Changes
templates/perl/package/MANIFEST.SKIP
templates/perl/package/README.md
templates/perl/package/dia.pm
templates/perl/package.pm
templates/perl/travis.yml
templates/perl/timer.pl
templates/perl/exception.pl
templates/perl/sub/object.pl
templates/perl/sub/method.pl
templates/perl/sub/class.pl
templates/perl/test.pl
templates/perl/find.pl
templates/perl/if.pl
templates/perl/pod/METHODS.pl
templates/perl/pod/package.pl
templates/perl/pod/NAME.pl

templates/perl/timer.pl  view on Meta::CPAN

{
    my $start;
    my $previous;
    sub timer {
        my ($msg) = @_;

        my $time = `/tmp/iwills/perl/bin/perl -I/home/isdtc/iwills/lib -MTime::HiRes=time -e 'print time'`;
        $start ||= $time;
        $previous ||= $time;

        my $diff = $time - $start;
        my @caller = caller;

        warn sprintf "%0.3f - %0.3f - ln %4i - $msg\n", $diff, $time - $previous, $caller[2];