gistfile1.txt

sub _build_requested_ip_address {
    my $self = shift;

    my $ip = bind_path( '/:ip_address', $self->request()->path_info() );

    return ( $ip && $ip eq 'me' ) ? $self->request->address : $ip;
}