Gecko [ www.leshallesdegournay.geraud-market.com ]

Name	Size	Permission	Date
BailOnFail.pm	1.46 KB	-r--r--r--	2019-03-16 23:17
DieOnFail.pm	1.43 KB	-r--r--r--	2019-03-16 23:17
ExitSummary.pm	1.89 KB	-r--r--r--	2019-03-16 23:17
SRand.pm	4.06 KB	-r--r--r--	2019-03-16 23:17
Times.pm	2.15 KB	-r--r--r--	2019-03-16 23:17
UTF8.pm	2.16 KB	-r--r--r--	2019-03-16 23:17

Rename

package Test2::Plugin::Times;
use strict;
use warnings;

use Test2::Util::Times qw/render_bench/;

use Test2::API qw{
    test2_add_callback_exit
};

use Time::HiRes qw/time/;

our $VERSION = '0.000119';

sub import {
    my $start = time;

test2_add_callback_exit(
        sub {
            my ($ctx, $real, $new) = @_;
            my $stop  = time;
            my @times = times();

$ctx->send_event(
                'Times',
                start => $start,
                stop  => $stop,
                user  => $times[0],
                sys   => $times[1],
                cuser => $times[2],
                csys  => $times[3],
            );
        }
    );
}

__END__

=pod

=encoding UTF-8

=head1 NAME

Test2::Plugin::Times - Output timing data at the end of the test.

=head1 DESCRIPTION

This plugin will output a diagnostics message at the end of testing that tells
you how much time elapsed, and how hard the system worked on the test.

This will produce a string like one of these (Note these numbers are completely
made up). I<Which string is used depends on the time elapsed.>

0.12345s on wallclock (0.05 usr 0.00 sys + 0.00 cusr 0.00 csys = 0.05 CPU)

11.1234s on wallclock (0.05 usr 0.00 sys + 0.00 cusr 0.00 csys = 0.05 CPU)

01m:54.45s on wallclock (0.05 usr 0.00 sys + 0.00 cusr 0.00 csys = 0.05 CPU)

18h:22m:54.45s on wallclock (0.05 usr 0.00 sys + 0.00 cusr 0.00 csys = 0.05 CPU)

04d:18h:22m:54.45s on wallclock (0.05 usr 0.00 sys + 0.00 cusr 0.00 csys = 0.05 CPU)

=head1 SYNOPSIS

use Test2::Plugin::Times;

This is also useful at the command line for 1-time use:

$ perl -MTest2::Plugin::Times path/to/test.t

=head1 SOURCE

The source code repository for Test2-Suite can be found at
F<https://github.com/Test-More/Test2-Suite/>.

=head1 MAINTAINERS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 AUTHORS

=over 4

=item Chad Granum E<lt>exodist@cpan.orgE<gt>

=back

=head1 COPYRIGHT

This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

See F<http://dev.perl.org/licenses/>

=cut