gistfile1.txt

sub parse_path (_) {
    my %data;
    @data{qw< name path file ext >} = map {
        $_
        , [split m(/)]
        , m{
            ( # file
                [^/]*?
                ( # ext
                    [^.]*?)) $ }x
    } shift;
    \%data;
}

use App::Skyfall;
use Test::More;

for (
[ 'prj/data/index.md' =>
{ name => 'prj/data/index.md'
, path => [qw< prj data index.md >]
, file => 'index.md'
, ext => 'md' }
]
) { my ( $path, $expected ) = @$_;

is_deeply
( (App::Skyfall::parse_path $path)
, $expected
, "$path parsing" )

}

done_testing;