#!/usr/bin/env perl

use strict;
use v5.18;
use utf8;
use warnings;

=head1 SYNOPSIS
perl Emplace-XDG-dirs

=cut

use Carp qw(carp croak);
use Try::Tiny;
use File::XDG 1.00;
use File::Path qw(mkpath);
use File::Basename;

my ($appName, $XDGUser, $XDGData, $XDGCache);
$appName = 'vim';
my $xdgEmp = File::XDG->new( name => $appName , api => 1 );

$XDGUser   = $xdgEmp->config_home;
$XDGData   = $xdgEmp->data_home;
$XDGCache  = $xdgEmp->cache_home;

say <<EOFILE;
According to File::XDG the following directories would be used for "vim":
EOFILE
say sprintf "Config for app $appName is\t%s", $XDGUser;
say sprintf "Data for app   $appName is\t%s", $XDGData;
say sprintf "Cache for app  $appName is\t%s", $XDGCache;
print q[-] x 88; print $/;