Maybe you can do something like this

sub run_test {
  # stuff
  for my $test_name (@tests) {
    # stuff
    my $duration =  $end - $start;
    $self->{'duration'}->{ $test_name } = $duration;
    # more stuff
  }
}
[download]

Then you'll have the durations available in the cleanup sub.

Note: It's impossible to really know because:

• The code you posted doesn't compile (it's missing a two closing brackets).
• The code you posted is incomplete: we don't know what's in $self or how cleanup_sub() gets called.
• You mention run_test() and run_tests() is that a typo?
• Does $self really provide __fetch_next()? Or is it _fetch_next()?

Please read How do I post a question effectively?. In particular, copy and paste working sample code; don't type it in on these pages.

I strongly suggest spending some time learning good Perl style (you could start by reading perlstyle), since the reason you missed the curly brackets in your sample code is probably the lack of proper indentation.

sub run_test {

    my ($self, @tests) = @_;
    
    # Setup test system.
    $self->_setup_test_system();

    # Run each test.
    TEST:
    for my $test_name (@tests) {

        # Setup everything necessary for current test.
        $self->setup_test_system($test_name);

        # Run each testcase for current test.
        TESTCASE:

        while ($self->__fetch_next()){              
            my $start = gettimeofday();
            my $is_pass = $self->_run_testcase();
            my $end = gettimeofday();
            my $duration =  $end - $start; 
            if (!$is_pass && $self->{_abort_on_failure}) {            
+  
                print "\nFailure occurred,for $test_name.\n";
                last TESTCASE;   # Exit loop
            } 
        }
# Hm, I guess there are two missing ...
[download]

Update: show re-indented code

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.