Lines Matching refs:href
296 my $href = $class->_parse_uri( $uri ) or return;
298 $href->{file_default} = $file_default if $file_default;
299 $href->{tempdir_root} = File::Spec->rel2abs( $tempdir_root ) if $tempdir_root;
300 $href->{tempdir_root} = File::Spec->rel2abs( Cwd::cwd ) if not $href->{tempdir_root};
303 my $ff = $class->_create( %$href ) or return;
355 my $href = { uri => $uri };
359 $href->{scheme} = $1;
365 if( $href->{scheme} eq 'file' ) {
372 $href->{host} = $parts[0] || '';
380 $href->{host} = $parts[2] || ''; # avoid warnings
381 $href->{share} = $parts[3] || ''; # avoid warnings
392 $href->{vol} = $parts[1] || '';
395 $href->{vol} =~ s/\A([A-Z])\|\z/$1:/i if ON_WIN;
401 $href->{path} = join '/', '', splice( @parts, $index, $#parts );
406 @{$href}{ qw(userinfo host path) } = $uri =~ m|(?:([^\@:]*:[^\:\@]*)@)?([^/]*)(/.*)$|s;
410 { my @parts = File::Spec::Unix->splitpath( delete $href->{path} );
411 $href->{path} = $parts[1];
412 $href->{file} = $parts[2];
417 $href->{host} = '' if ($href->{host} eq 'localhost') and
418 ($href->{scheme} eq 'file');
420 return $href;