package url
 (methods:new 'host' 'path')
package url::cacheable
sub new {
 $package=shift;
 $up=new url(@_);     # host & path passed in args
 $up->path($cpath) if ($cpath=_canonical_path($up->path)) ne $path;
 bless $up, $package;  

}