Filename | /usr/local/share/perl/5.18.2/App/Cmd/ArgProcessor.pm |
Statements | Executed 18 statements in 695µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 2 | 2 | 2.67ms | 20.0ms | _process_args | App::Cmd::ArgProcessor::
1 | 1 | 1 | 19µs | 31µs | BEGIN@1 | App::Cmd::
1 | 1 | 1 | 5µs | 8µs | BEGIN@2 | App::Cmd::
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 # 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 # 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 | ||||
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__ |