Filename | /var/www/foswikidev/core/lib/Foswiki/Iterator/AggregateEventIterator.pm |
Statements | Executed 10 statements in 248µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 14µs | 27µs | BEGIN@4 | Foswiki::Iterator::AggregateEventIterator::
1 | 1 | 1 | 10µs | 14µs | BEGIN@5 | Foswiki::Iterator::AggregateEventIterator::
1 | 1 | 1 | 9µs | 35µs | BEGIN@6 | Foswiki::Iterator::AggregateEventIterator::
1 | 1 | 1 | 4µs | 4µs | BEGIN@8 | Foswiki::Iterator::AggregateEventIterator::
0 | 0 | 0 | 0s | 0s | new | Foswiki::Iterator::AggregateEventIterator::
0 | 0 | 0 | 0s | 0s | snoopNext | Foswiki::Iterator::AggregateEventIterator::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | # See bottom of file for license and copyright information | ||||
2 | package Foswiki::Iterator::AggregateEventIterator; | ||||
3 | |||||
4 | 2 | 28µs | 2 | 39µs | # spent 27µs (14+13) within Foswiki::Iterator::AggregateEventIterator::BEGIN@4 which was called:
# once (14µs+13µs) by Foswiki::Logger::PlainFile::BEGIN@37 at line 4 # spent 27µs making 1 call to Foswiki::Iterator::AggregateEventIterator::BEGIN@4
# spent 13µs making 1 call to strict::import |
5 | 2 | 23µs | 2 | 18µs | # spent 14µs (10+4) within Foswiki::Iterator::AggregateEventIterator::BEGIN@5 which was called:
# once (10µs+4µs) by Foswiki::Logger::PlainFile::BEGIN@37 at line 5 # spent 14µs making 1 call to Foswiki::Iterator::AggregateEventIterator::BEGIN@5
# spent 4µs making 1 call to warnings::import |
6 | 2 | 53µs | 2 | 61µs | # spent 35µs (9+26) within Foswiki::Iterator::AggregateEventIterator::BEGIN@6 which was called:
# once (9µs+26µs) by Foswiki::Logger::PlainFile::BEGIN@37 at line 6 # spent 35µs making 1 call to Foswiki::Iterator::AggregateEventIterator::BEGIN@6
# spent 26µs making 1 call to Exporter::import |
7 | |||||
8 | # spent 4µs within Foswiki::Iterator::AggregateEventIterator::BEGIN@8 which was called:
# once (4µs+0s) by Foswiki::Logger::PlainFile::BEGIN@37 at line 13 | ||||
9 | 1 | 5µs | if ( $Foswiki::cfg{UseLocale} ) { | ||
10 | require locale; | ||||
11 | import locale(); | ||||
12 | } | ||||
13 | 1 | 127µs | 1 | 4µs | } # spent 4µs making 1 call to Foswiki::Iterator::AggregateEventIterator::BEGIN@8 |
14 | |||||
15 | =begin TML | ||||
16 | |||||
17 | ---++ =Foswiki::Iterator::AggregateEventIterator= | ||||
18 | Private subclass of Foswiki::AggregateIterator that implements the snoopNext method | ||||
19 | |||||
20 | =cut | ||||
21 | |||||
22 | # Private subclass of AggregateIterator that can snoop Events. | ||||
23 | 1 | 600ns | require Foswiki::AggregateIterator; | ||
24 | 1 | 8µs | our @ISA = ('Foswiki::AggregateIterator'); | ||
25 | |||||
26 | sub new { | ||||
27 | my ( $class, $list, $unique ) = @_; | ||||
28 | my $this = bless( | ||||
29 | { | ||||
30 | Itr_list => $list, | ||||
31 | Itr_index => 0, | ||||
32 | index => 0, | ||||
33 | process => undef, | ||||
34 | filter => undef, | ||||
35 | next => undef, | ||||
36 | unique => $unique, | ||||
37 | unique_hash => {} | ||||
38 | }, | ||||
39 | $class | ||||
40 | ); | ||||
41 | return $this; | ||||
42 | } | ||||
43 | |||||
44 | =begin TML | ||||
45 | |||||
46 | ---+++ ObjectMethod snoopNext() -> $boolean | ||||
47 | Return the field hash of the next availabable record. | ||||
48 | |||||
49 | =cut | ||||
50 | |||||
51 | sub snoopNext { | ||||
52 | my $this = shift; | ||||
53 | return $this->{list}->snoopNext(); | ||||
54 | } | ||||
55 | |||||
56 | 1 | 3µs | 1; | ||
57 | __END__ |