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 | BEGIN@1.6 | App::Cmd::Setup::
1 | 1 | 1 | 6µs | 11µs | BEGIN@2.7 | App::Cmd::Setup::
0 | 0 | 0 | 0s | 0s | __ANON__[:13] | App::Cmd::Plugin::
0 | 0 | 0 | 0s | 0s | _faux_curried_method | App::Cmd::Plugin::
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__ |