| Filename | /home/hinrik/perl5/perlbrew/perls/perl-5.13.5/lib/site_perl/5.13.5/Regexp/Common/URI/RFC2384.pm |
| Statements | Executed 38 statements in 462µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 26µs | 106µs | Regexp::Common::URI::RFC2384::BEGIN@4 |
| 1 | 1 | 1 | 14µs | 278µs | Regexp::Common::URI::RFC2384::BEGIN@28 |
| 1 | 1 | 1 | 11µs | 166µs | Regexp::Common::URI::RFC2384::BEGIN@5 |
| 1 | 1 | 1 | 11µs | 44µs | Regexp::Common::URI::RFC2384::BEGIN@10 |
| 1 | 1 | 1 | 11µs | 105µs | Regexp::Common::URI::RFC2384::BEGIN@13 |
| 1 | 1 | 1 | 10µs | 16µs | Regexp::Common::URI::RFC2384::BEGIN@7 |
| 1 | 1 | 1 | 10µs | 19µs | Regexp::Common::URI::RFC2384::BEGIN@8 |
| 1 | 1 | 1 | 10µs | 10µs | Regexp::Common::URI::RFC2384::BEGIN@21 |
| 1 | 1 | 1 | 6µs | 6µs | Regexp::Common::URI::RFC2384::BEGIN@15 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package Regexp::Common::URI::RFC2384; | ||||
| 2 | |||||
| 3 | |||||
| 4 | 2 | 30µs | 2 | 106µs | # spent 106µs (26+80) within Regexp::Common::URI::RFC2384::BEGIN@4 which was called:
# once (26µs+80µs) by Regexp::Common::URI::pop::BEGIN@6 at line 4 # spent 106µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@4
# spent 80µs making 1 call to Regexp::Common::import, recursion: max depth 1, sum of overlapping time 80µs |
| 5 | 2 | 27µs | 2 | 322µs | # spent 166µs (11+155) within Regexp::Common::URI::RFC2384::BEGIN@5 which was called:
# once (11µs+155µs) by Regexp::Common::URI::pop::BEGIN@6 at line 5 # spent 166µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@5
# spent 155µs making 1 call to Exporter::import |
| 6 | |||||
| 7 | 2 | 24µs | 2 | 20µs | # spent 16µs (10+5) within Regexp::Common::URI::RFC2384::BEGIN@7 which was called:
# once (10µs+5µs) by Regexp::Common::URI::pop::BEGIN@6 at line 7 # spent 16µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@7
# spent 5µs making 1 call to strict::import |
| 8 | 2 | 27µs | 2 | 28µs | # spent 19µs (10+9) within Regexp::Common::URI::RFC2384::BEGIN@8 which was called:
# once (10µs+9µs) by Regexp::Common::URI::pop::BEGIN@6 at line 8 # spent 19µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@8
# spent 9µs making 1 call to warnings::import |
| 9 | |||||
| 10 | 2 | 33µs | 2 | 77µs | # spent 44µs (11+33) within Regexp::Common::URI::RFC2384::BEGIN@10 which was called:
# once (11µs+33µs) by Regexp::Common::URI::pop::BEGIN@6 at line 10 # spent 44µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@10
# spent 33µs making 1 call to vars::import |
| 11 | 1 | 2µs | $VERSION = '2010010201'; | ||
| 12 | |||||
| 13 | 2 | 26µs | 2 | 200µs | # spent 105µs (11+94) within Regexp::Common::URI::RFC2384::BEGIN@13 which was called:
# once (11µs+94µs) by Regexp::Common::URI::pop::BEGIN@6 at line 13 # spent 105µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@13
# spent 94µs making 1 call to vars::import |
| 14 | |||||
| 15 | 2 | 56µs | 1 | 6µs | # spent 6µs within Regexp::Common::URI::RFC2384::BEGIN@15 which was called:
# once (6µs+0s) by Regexp::Common::URI::pop::BEGIN@6 at line 15 # spent 6µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@15 |
| 16 | 1 | 8µs | @ISA = qw /Exporter/; | ||
| 17 | |||||
| 18 | |||||
| 19 | 1 | 1µs | my %vars; | ||
| 20 | |||||
| 21 | # spent 10µs within Regexp::Common::URI::RFC2384::BEGIN@21 which was called:
# once (10µs+0s) by Regexp::Common::URI::pop::BEGIN@6 at line 26 | ||||
| 22 | 1 | 3µs | $vars {low} = [qw /$achar_range $achar $achars $achar_more/]; | ||
| 23 | 1 | 2µs | $vars {connect} = [qw /$enc_sasl $enc_user $enc_ext $enc_auth_type $auth | ||
| 24 | $user_auth $server/]; | ||||
| 25 | 1 | 6µs | $vars {parts} = [qw /$pop_url/]; | ||
| 26 | 1 | 28µs | 1 | 10µs | } # spent 10µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@21 |
| 27 | |||||
| 28 | 2 | 140µs | 2 | 542µs | # spent 278µs (14+264) within Regexp::Common::URI::RFC2384::BEGIN@28 which was called:
# once (14µs+264µs) by Regexp::Common::URI::pop::BEGIN@6 at line 28 # spent 278µs making 1 call to Regexp::Common::URI::RFC2384::BEGIN@28
# spent 264µs making 1 call to vars::import |
| 29 | |||||
| 30 | 1 | 2µs | @EXPORT = qw /$host/; | ||
| 31 | 1 | 7µs | @EXPORT_OK = map {@$_} values %vars; | ||
| 32 | 1 | 4µs | %EXPORT_TAGS = (%vars, ALL => [@EXPORT_OK]); | ||
| 33 | |||||
| 34 | # RFC 2384, POP3. | ||||
| 35 | |||||
| 36 | # Lowlevel definitions. | ||||
| 37 | 1 | 2µs | $achar_range = "$unreserved_range&=~"; | ||
| 38 | 1 | 2µs | $achar = "(?:[$achar_range]|$escape)"; | ||
| 39 | 1 | 2µs | $achars = "(?:(?:[$achar_range]+|$escape)*)"; | ||
| 40 | 1 | 2µs | $achar_more = "(?:(?:[$achar_range]+|$escape)+)"; | ||
| 41 | 1 | 1µs | $enc_sasl = $achar_more; | ||
| 42 | 1 | 1µs | $enc_user = $achar_more; | ||
| 43 | 1 | 1µs | $enc_ext = "(?:[+](?:APOP|$achar_more))"; | ||
| 44 | 1 | 2µs | $enc_auth_type = "(?:$enc_sasl|$enc_ext)"; | ||
| 45 | 1 | 2µs | $auth = "(?:;AUTH=(?:[*]|$enc_auth_type))"; | ||
| 46 | 1 | 2µs | $user_auth = "(?:$enc_user$auth?)"; | ||
| 47 | 1 | 2µs | $server = "(?:(?:$user_auth\@)?$hostport)"; | ||
| 48 | 1 | 2µs | $pop_url = "(?:pop://$server)"; | ||
| 49 | |||||
| 50 | |||||
| 51 | 1 | 15µs | 1; | ||
| 52 | |||||
| 53 | __END__ |