Profile of App/Cmd/ArgProcessor.pm

← Index
NYTProf Performance Profile «line view»
For script/ponapi
Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:08 2016

Filename | /usr/local/share/perl/5.18.2/App/Cmd/ArgProcessor.pm
Statements | Executed 18 statements in 695µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
2 | 2 | 2 | 2.67ms | 20.0ms | App::Cmd::ArgProcessor::::_process_argsApp::Cmd::ArgProcessor::_process_args
1 | 1 | 1 | 19µs | 31µs | App::Cmd::::BEGIN@1 App::Cmd::BEGIN@1
1 | 1 | 1 | 5µs | 8µs | App::Cmd::::BEGIN@2 App::Cmd::BEGIN@2

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 | 2 | 18µs | 2 | 44µs | # spent 31µs (19+13) within App::Cmd::BEGIN@1 which was called: # once (19µs+13µs) by App::Cmd::BEGIN@7 at line 1 use strict; # spent 31µs making 1 call to App::Cmd::BEGIN@1 # spent 13µs making 1 call to strict::import
2 | 2 | 90µs | 2 | 11µs | # spent 8µs (5+3) within App::Cmd::BEGIN@2 which was called: # once (5µs+3µs) by App::Cmd::BEGIN@7 at line 2 use warnings; # spent 8µs making 1 call to App::Cmd::BEGIN@2 # spent 3µs making 1 call to warnings::import
3 |  |  |  |  |
4 |  |  |  |  | package App::Cmd::ArgProcessor;
5 | 1 | 400ns |  |  | $App::Cmd::ArgProcessor::VERSION = '0.330';
6 |  |  |  |  | # ABSTRACT: App::Cmd-specific wrapper for Getopt::Long::Descriptive
7 |  |  |  |  |
8 |  |  |  |  | # spent 20.0ms (2.67+17.3) within App::Cmd::ArgProcessor::_process_args which was called 2 times, avg 10.0ms/call: # once (2.66ms+16.7ms) by App::Cmd::get_command at line 626 of App/Cmd.pm # once (17µs+641µs) by App::Cmd::Command::prepare at line 30 of App/Cmd/Command.pm sub _process_args {
9 | 2 | 2µs |  |  | my ($class, $args, @params) = @_;
10 | 2 | 3µs |  |  | local @ARGV = @$args;
11 |  |  |  |  |
12 | 2 | 535µs |  |  | require Getopt::Long::Descriptive;
13 | 2 | 29µs | 2 | 17µs | Getopt::Long::Descriptive->VERSION(0.084); # spent 17µs making 2 calls to UNIVERSAL::VERSION, avg 8µs/call
14 |  |  |  |  |
15 | 2 | 5µs | 2 | 1.14ms | my ($opt, $usage) = Getopt::Long::Descriptive::describe_options(@params); # spent 1.14ms making 2 calls to Getopt::Long::Descriptive::describe_options, avg 570µs/call
16 |  |  |  |  |
17 |  |  |  |  | return (
18 | 2 | 11µs |  |  | $opt,
19 |  |  |  |  | [ @ARGV ], # whatever remained
20 |  |  |  |  | usage => $usage,
21 |  |  |  |  | );
22 |  |  |  |  | }
23 |  |  |  |  |
24 | 1 | 2µs |  |  | 1;
25 |  |  |  |  |
26 |  |  |  |  | __END__