- my $path = $args{path} || $self->path;
- my $host = $args{domain} || $self->ar->hostname;
- my $protocol = $args{protocol} ||
- ( $self->ar->protocol =~ m/https/i ) ? 'https' : 'http' ;
+ my $path = $args{path} || $r->path;
+ my $host = $args{domain} || $r->ar->hostname;
+ my $protocol = $args{protocol} || $r->get_protocol;