Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/5.13.5/Tie/Hash/NamedCapture.pm |
Statements | Executed 11 statements in 50µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
2 | 2 | 1 | 17µs | 17µ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 | 2µs | 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 | 10µ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 | 6 | 20µs | my ($pkg, %arg) = @_; | ||
13 | my $flag = $arg{all} ? $all : $one; | ||||
14 | bless \$flag => $pkg; | ||||
15 | } | ||||
16 | |||||
17 | 1 | 7µs | 1 | 10µs | tie %+, __PACKAGE__; # spent 10µs making 1 call to Tie::Hash::NamedCapture::TIEHASH |
18 | 1 | 5µs | 1 | 7µs | tie %-, __PACKAGE__, all => 1; # spent 7µs making 1 call to Tie::Hash::NamedCapture::TIEHASH |
19 | |||||
20 | 1 | 6µs | 1; | ||
21 | |||||
22 | __END__ | ||||
# spent 2µs within Tie::Hash::NamedCapture::flags which was called:
# once (2µs+0s) by Hailo::BEGIN@184 at line 9 |