use strict;
use warnings;
package Devel::REPL::Plugin::Timing;
# ABSTRACT: Display execution times

our $VERSION = '1.003028';

use Devel::REPL::Plugin;
use Time::HiRes 'time';
use namespace::autoclean;

around 'eval' => sub {
    my $orig = shift;
    my ($self, $line) = @_;

    my @ret;
    my $start = time;

    if (wantarray) {
        @ret = $self->$orig($line);
    else {
        $ret[0] = $self->$orig($line);

    $self->print("Took " . (time - $start) . " seconds.\n");
    return @ret;




=encoding UTF-8

=head1 NAME

Devel::REPL::Plugin::Timing - Display execution times

=head1 VERSION

version 1.003028


 # in your file:
 use Devel::REPL;
 my $repl = Devel::REPL->new;

 # after you run
 $ sum map $_*100, 1..100000;
 Took 0.0830280780792236 seconds.


=head1 SUPPORT

Bugs may be submitted through L<the RT bug tracker|>
(or L<|>).

There is also an irc channel available for users of this distribution, at
L<C<#devel> on C<>|irc://>.

=head1 AUTHOR

Shawn M Moore, C<< <sartak at gmail dot com> >>


This software is copyright (c) 2007 by Matt S Trout - mst (at) (L<>).

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