Yet Another CPAN Grep

Mojo-Path-Role-Relative ( K/KI/KIWIROY/tmp/Mojo-Path-Role-Relative-0.01.tar.gz, KIWIROY, 2019; MetaCPAN )

Mojo-Path-Role-Relative/lib/Mojo/Path/Role/Relative.pm ( view source; MetaCPAN )

>new('/foo/bar/baz/data.json');
  $base = Mojo::Path->new('/foo/bar');
  # 1
  $path->is_subpath_of($base);
  # "baz/data.json"
  $path->to_subpath_of($base);
  # "baz/data.json"
  $path->to_rel($base