Select Code to Download

$ cat switch.pl
#!/usr/local/bin/perl
...
        case "b" {print "2"}
        case "c" {print "3"}
}

 ______Source_Code_Files_—_ordered_by_exclusive_time_then_name__
+_____
|Stmts|Exclusive|Reports           |Source File                       
+     |
...
|_____|0.00852__|Deviation____________________________________________
+_____|
Report produced by the NYTProf_4.04 Perl profiler, developed by Tim_Bu
+nce and
Adam_Kaplan.

$ cat if-then-else.pl
#!/usr/local/bin/perl
...
}elsif ($letter eq "b") {print "2";
}elsif ($letter eq "c") {print "3";
}

 ____________________then_name_____________________
|Stmts|Exclusive|Reports           |Source File    |
|_____|Time_____|__________________|_______________|
|3____|13.0ms___|line • block |if-then-else.pl|

#!/usr/local/bin/perl

...
);

$h{$letter}->();

 Source Code Files — ordered by exclusive time
 _____________________then_name_____________________
|Stmts|Exclusive|Reports           |Source File     |
|_____|Time_____|__________________|________________|
|5____|4.10ms___|line • block |dispatch-hash.pl|