Lines Matching refs:style
185 FORMAT is the L<printf(3)>-style format specifier (without the
407 December, 2001; by Nicholas Clark: make timestr() recognise the style 'none'
409 style in. (so that 'none' will suppress output). Make sub new dump its
416 statistics for children instead of parent when the style is 'nop'.
579 my($tr, $style, $f) = @_;
588 # format a time in the required style, other formats may be added here
589 $style ||= $Default_Style;
590 return '' if $style eq 'none';
591 $style = ($ct>0) ? 'all' : 'noc' if $style eq 'auto';
592 my $s = "@t $style"; # default for unknown style
595 $r,$pu,$ps,$cu,$cs,$tt) if $style eq 'all';
597 $r,$pu,$ps,$pt) if $style eq 'noc';
599 $r,$cu,$cs,$ct) if $style eq 'nop';
600 $s .= sprintf(" @ %$f/s (n=$n)", $n / ( $style eq 'nop' ? $cu + $cs : $pu + $ps ))
601 if $n && ($style eq 'nop' ? $cu+$cs : $pu+$ps);
789 my($n, $code, $title, $style) = @_;
806 $style = "" unless defined $style;
807 printf("%10s: ", $title) unless $style eq 'none';
808 print timestr($t, $style, $Default_Format),"\n" unless $style eq 'none';
829 my($n, $alt, $style) = @_;
833 $style = "" unless defined $style;
834 print "Benchmark: " unless $style eq 'none';
837 print "timing $n iterations of" unless $style eq 'none';
839 print "running" unless $style eq 'none';
841 print " ", join(', ',@names) unless $style eq 'none';
844 print ", each" if $n > 1 && $style ne 'none';
845 print " for at least $for CPU seconds" unless $style eq 'none';
847 print "...\n" unless $style eq 'none';
853 $results{$name} = timethis ($n, $alt -> {$name}, $name, $style);
863 cmpthese($result, $style);
867 my ($results, $style);
870 ($results, $style) = @_;
874 $style = $_[2] if defined $_[2];
878 $results = timethese($count, $code, ($style || "none"));
881 $style = "" unless defined $style;
889 my $rate = $_->[6] / (( $style eq 'nop' ? $_->[4] + $_->[5]
914 # it should go away. Also, perhaps a style for a single column of
978 return \@rows if $style eq "none";