(Perl) (mojolicious) A failed idea to make it easier to resolve files

mojo-file-parent

#!/Users/brian/bin/perls/perl-latest
use v5.26;
use utf8;
use strict;
use warnings;


use Mojo::File;

package Mojo::File::Role::parent {
	use Mojo::Base '-role';
	use feature qw(signatures);
	no warnings qw(experimental::signatures);

	sub parent ($file, $dir) { $file->new( $dir, $file ) }

	sub rebase ($file, $dir) {
		$file->new( $dir, $file->basename )
		}
	}

my $dir = Mojo::File->new( 'Planet_Express/robots' );

say $dir->child( 'bender.txt' );

say Mojo::File->with_roles( '+parent' )->new( '/usr/local/bin/perl' )->rebase( $dir );


{
my $file =
	Mojo::File
		->with_roles( '+parent' )
		->new( 'bender.txt' )
		->parent( $dir );

say $file;
}