view release on metacpan or  search on metacpan

t/01_use.t  view on Meta::CPAN

use Mojo::File qw/path/;
use File::HomeDir;
use Test::More;

my $user = getlogin() || $ENV{USER} || $ENV{LOGNAME} || getpwuid($<);

my $p = path()->with_roles("+HomeDir");

my @subs = qw/
    my_home
    my_desktop
    my_documents
    my_music
    my_pictures
    my_videos