Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/5.12.3/Tie/Hash/NamedCapture.pm |
Statements | Executed 11 statements in 41µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 2 | 1 | 11µs | 11µs | TIEHASH | Tie::Hash::NamedCapture::
1 | 1 | 1 | 2µs | 2µs | flags (xsub) | Tie::Hash::NamedCapture::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package Tie::Hash::NamedCapture; | ||||
2 | |||||
3 | 1 | 500ns | our $VERSION = "0.06"; | ||
4 | |||||
5 | # The real meat implemented in XS in universal.c in the core, but this | ||||
6 | # method was left behind because gv.c expects a Purl-Perl method in | ||||
7 | # this package when it loads the tie magic for %+ and %- | ||||
8 | |||||
9 | 1 | 9µs | 1 | 2µs | my ($one, $all) = Tie::Hash::NamedCapture::flags(); # spent 2µs making 1 call to Tie::Hash::NamedCapture::flags |
10 | |||||
11 | sub TIEHASH { | ||||
12 | 2 | 2µs | my ($pkg, %arg) = @_; | ||
13 | 2 | 1µs | my $flag = $arg{all} ? $all : $one; | ||
14 | 2 | 18µs | bless \$flag => $pkg; | ||
15 | } | ||||
16 | |||||
17 | 1 | 4µs | 1 | 7µs | tie %+, __PACKAGE__; # spent 7µs making 1 call to Tie::Hash::NamedCapture::TIEHASH |
18 | 1 | 2µs | 1 | 4µs | tie %-, __PACKAGE__, all => 1; # spent 4µs making 1 call to Tie::Hash::NamedCapture::TIEHASH |
19 | |||||
20 | 1 | 4µs | 1; | ||
21 | |||||
22 | __END__ | ||||
# spent 2µs within Tie::Hash::NamedCapture::flags which was called:
# once (2µs+0s) by English::BEGIN@148 at line 9 |