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 | as_string | CPAN::URL::
2 | 1 | 1 | 26µs | 26µs | new | CPAN::URL::
4 | 1 | 1 | 18µs | 18µs | text | CPAN::URL::
0 | 0 | 0 | 0s | 0s | BEGIN | CPAN::URL::
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; |