| Filename | /usr/local/perls/perl-5.26.1/lib/5.26.1/CPAN/URL.pm |
| Statements | Executed 24 statements in 103µs |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 4 | 2 | 1 | 38µs | 56µs | CPAN::URL::as_string |
| 2 | 1 | 1 | 26µs | 26µs | CPAN::URL::new |
| 4 | 1 | 1 | 18µs | 18µs | CPAN::URL::text |
| 0 | 0 | 0 | 0s | 0s | CPAN::URL::BEGIN |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*- | ||||
| 2 | # vim: ts=4 sts=4 sw=4: | ||||
| 3 | package CPAN::URL; | ||||
| 4 | use overload '""' => "as_string", fallback => 1; | ||||
| 5 | # accessors: TEXT(the url string), FROM(DEF=>defaultlist,USER=>urllist), | ||||
| 6 | # planned are things like age or quality | ||||
| 7 | |||||
| 8 | use vars qw( | ||||
| 9 | $VERSION | ||||
| 10 | ); | ||||
| 11 | $VERSION = "5.5"; | ||||
| 12 | |||||
| 13 | # spent 26µs within CPAN::URL::new which was called 2 times, avg 13µs/call:
# 2 times (26µs+0s) by CPAN::FTP::_get_urllist at line 220 of CPAN/FTP.pm, avg 13µs/call | ||||
| 14 | 2 | 10µs | my($class,%args) = @_; | ||
| 15 | 2 | 18µs | bless { | ||
| 16 | %args | ||||
| 17 | }, $class; | ||||
| 18 | } | ||||
| 19 | # spent 56µs (38+18) within CPAN::URL::as_string which was called 4 times, avg 14µs/call:
# 2 times (27µs+12µs) by CPAN::FTP::CORE:match at line 538 of CPAN/FTP.pm, avg 20µs/call
# 2 times (11µs+6µs) by CPAN::FTP::hostdleasy at line 558 of CPAN/FTP.pm, avg 8µs/call | ||||
| 20 | 4 | 3µs | my($self) = @_; | ||
| 21 | 4 | 38µs | 4 | 18µs | $self->text; # spent 18µs making 4 calls to CPAN::URL::text, avg 4µs/call |
| 22 | } | ||||
| 23 | # spent 18µs within CPAN::URL::text which was called 4 times, avg 4µs/call:
# 4 times (18µs+0s) by CPAN::URL::as_string at line 21, avg 4µs/call | ||||
| 24 | 4 | 2µs | my($self,$set) = @_; | ||
| 25 | 4 | 2µs | if (defined $set) { | ||
| 26 | $self->{TEXT} = $set; | ||||
| 27 | } | ||||
| 28 | 4 | 30µs | $self->{TEXT}; | ||
| 29 | } | ||||
| 30 | |||||
| 31 | 1; |