| Filename | /usr/local/share/perl/5.18.2/App/Cmd/Plugin.pm |
| Statements | Executed 6 statements in 92µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 26µs | 37µs | App::Cmd::Setup::BEGIN@1.6 |
| 1 | 1 | 1 | 6µs | 11µs | App::Cmd::Setup::BEGIN@2.7 |
| 0 | 0 | 0 | 0s | 0s | App::Cmd::Plugin::__ANON__[:13] |
| 0 | 0 | 0 | 0s | 0s | App::Cmd::Plugin::_faux_curried_method |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | 2 | 21µs | 2 | 48µs | # spent 37µs (26+11) within App::Cmd::Setup::BEGIN@1.6 which was called:
# once (26µs+11µs) by App::Cmd::Setup::BEGIN@74 at line 1 # spent 37µs making 1 call to App::Cmd::Setup::BEGIN@1.6
# spent 11µs making 1 call to strict::import |
| 2 | 2 | 68µs | 2 | 15µs | # spent 11µs (6+5) within App::Cmd::Setup::BEGIN@2.7 which was called:
# once (6µs+5µs) by App::Cmd::Setup::BEGIN@74 at line 2 # spent 11µs making 1 call to App::Cmd::Setup::BEGIN@2.7
# spent 5µs making 1 call to warnings::import |
| 3 | package App::Cmd::Plugin; | ||||
| 4 | 1 | 500ns | $App::Cmd::Plugin::VERSION = '0.330'; | ||
| 5 | # ABSTRACT: a plugin for App::Cmd commands | ||||
| 6 | |||||
| 7 | sub _faux_curried_method { | ||||
| 8 | my ($class, $name, $arg) = @_; | ||||
| 9 | |||||
| 10 | return sub { | ||||
| 11 | my $cmd = $App::Cmd::active_cmd; | ||||
| 12 | $class->$name($cmd, @_); | ||||
| 13 | } | ||||
| 14 | } | ||||
| 15 | |||||
| 16 | 1 | 2µs | 1; | ||
| 17 | |||||
| 18 | __END__ |