Filename	C:/tmp64ng/perl/vendor/lib/Portable/minicpan.pm
Statements	Executed 30 statements in 0s

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	0s	0s	Portable::minicpan::::BEGIN@3Portable::minicpan::BEGIN@3
1	1	1	0s	0s	Portable::minicpan::::BEGIN@4Portable::minicpan::BEGIN@4
1	1	1	0s	0s	Portable::minicpan::::BEGIN@5Portable::minicpan::BEGIN@5
1	1	1	0s	0s	Portable::minicpan::::BEGIN@6Portable::minicpan::BEGIN@6
1	1	1	0s	0s	Portable::minicpan::::newPortable::minicpan::new

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Portable::minicpan;
2
3	2	0s	1	0s	# spent 0s within Portable::minicpan::BEGIN@3 which was called: # once (0s+0s) by Portable::new at line 3 use 5.008; # spent 0s making 1 call to Portable::minicpan::BEGIN@3
4	2	0s	2	0s	# spent 0s within Portable::minicpan::BEGIN@4 which was called: # once (0s+0s) by Portable::new at line 4 use strict; # spent 0s making 1 call to Portable::minicpan::BEGIN@4 # spent 0s making 1 call to strict::import
5	2	0s	2	0s	# spent 0s within Portable::minicpan::BEGIN@5 which was called: # once (0s+0s) by Portable::new at line 5 use warnings; # spent 0s making 1 call to Portable::minicpan::BEGIN@5 # spent 0s making 1 call to warnings::import
6	2	0s	1	0s	# spent 0s within Portable::minicpan::BEGIN@6 which was called: # once (0s+0s) by Portable::new at line 6 use Portable::FileSpec; # spent 0s making 1 call to Portable::minicpan::BEGIN@6
7
8	1	0s			our $VERSION = '1.22';
9
10					#####################################################################
11					# Portable Driver API
12
13					# spent 0s within Portable::minicpan::new which was called: # once (0s+0s) by Portable::new at line 170 of Portable.pm sub new {
14	1	0s			my $class = shift;
15	1	0s			my $parent = shift;
16	1	0s	2	0s	unless ( Portable::_HASH($parent->portable_minicpan) ) { # spent 0s making 1 call to Portable::_HASH # spent 0s making 1 call to Portable::portable_minicpan
17					die('Missing or invalid minicpan key in portable.perl');
18					}
19
20					# Create the object
21	1	0s			my $self = bless { }, $class;
22
23					# Map paths to absolute paths
24	1	0s	1	0s	my $minicpan = $parent->portable_minicpan; # spent 0s making 1 call to Portable::portable_minicpan
25	1	0s	1	0s	my $root = $parent->dist_root; # spent 0s making 1 call to Portable::dist_root
26	1	0s			foreach my $key ( qw{ local } ) {
27	1	0s			unless (
28					defined $minicpan->{$key}
29					and
30					length $minicpan->{$key}
31					) {
32					$self->{$key} = $minicpan->{$key};
33					next;
34					}
35	1	0s	1	0s	$self->{$key} = Portable::FileSpec::catdir( # spent 0s making 1 call to Portable::FileSpec::catdir
36					$root, split /\//, $minicpan->{$key}
37					);
38					}
39
40					# Add the literal params
41	1	0s			$self->{remote} = $minicpan->{remote};
42	1	0s			$self->{quiet} = $minicpan->{quiet};
43	1	0s			$self->{force} = $minicpan->{force};
44	1	0s			$self->{offline} = $minicpan->{offline};
45	1	0s			$self->{also_mirror} = $minicpan->{also_mirror};
46	1	0s			$self->{module_filters} = $minicpan->{module_filters};
47	1	0s			$self->{path_filters} = $minicpan->{path_filters};
48	1	0s			$self->{skip_cleanup} = $minicpan->{skip_cleanup};
49	1	0s			$self->{skip_perl} = $minicpan->{skip_perl};
50	1	0s			$self->{no_conn_cache} = $minicpan->{no_conn_cache};
51
52	1	0s			return $self;
53					}
54
55	1	0s			1;