p->{_path}

##</code><code>##

$p->{tied_path}

sub callback_for_STORE_into_tied_path { my $p=shift;
  my $newvalue;
  $p->{_path}=$newvalue;
  $p->{_url}=undef;
  ...
  $p->{_path};
}
...later...in 
sub url(;$) { my $p=shift;
  $p->compose_url_from_parts() unless defined $p->{_url};
  $p->{_url}
}