refetch output method only if going to output

With 1 million tests processed, NYTProf shows this sub was called once for
each test processed, but the print block only executed 1600 times. So dont
compute the output method name, and dont fetch the current test number, if
we aren't going to use it.

Author: bulk88

lib/TAP/Formatter/Console/Session.pm

@@ -128,17 +128,17 @@ sub _closures {
                 my $planned = $parser->tests_planned || '?';
                 $plan = "/$planned ";
             }
-            $output = $formatter->_get_output_method($parser);
 
             if ( $show_count and $is_test ) {
-                my $number = $result->number;
                 my $now    = CORE::time;
 
                 # Print status roughly once per second.
                 # We will always get the first number as a side effect of
                 # $last_status_printed starting with the value 0, which $now
                 # will never be. (Unless someone sets their clock to 1970)
                 if ( $last_status_printed != $now ) {
+                    my $number = $result->number;
+                    $output = $formatter->_get_output_method($parser);
                     $formatter->$output("\r$pretty$number$plan");
                     $last_status_printed = $now;
                 }