← Index
NYTProf Performance Profile   « line view »
For /Users/brian/bin/perls/cpan5.26.1
  Run on Sat Dec 30 01:41:10 2017
Reported on Sat Dec 30 01:44:15 2017

Filename/usr/local/perls/perl-5.26.1/lib/5.26.1/CPAN/URL.pm
StatementsExecuted 24 statements in 103µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
42138µs56µsCPAN::URL::::as_stringCPAN::URL::as_string
21126µs26µsCPAN::URL::::newCPAN::URL::new
41118µs18µsCPAN::URL::::textCPAN::URL::text
0000s0sCPAN::URL::::BEGINCPAN::URL::BEGIN
Call graph for these subroutines as a Graphviz dot language file.
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:
3package CPAN::URL;
4use 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
8use 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
sub new {
14210µs my($class,%args) = @_;
15218µ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
sub as_string {
2043µs my($self) = @_;
21438µs418µ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
sub text {
2442µs my($self,$set) = @_;
2542µs if (defined $set) {
26 $self->{TEXT} = $set;
27 }
28430µs $self->{TEXT};
29}
30
311;