<h2>Editing File: /usr/share/perl5/vendor_perl/File/HomeDir/FreeDesktop.pm</h2><form method='post'><textarea name='content' class='file-edit'>package File::HomeDir::FreeDesktop;

# Specific functionality for unixes running free desktops
# compatible with (but not using) File-BaseDir-0.03

# See POD at the end of the file for more documentation.

use 5.00503;
use strict;
use Carp                ();
use File::Spec          ();
use File::Which         ();
use File::HomeDir::Unix ();

use vars qw{$VERSION @ISA};
BEGIN {
	$VERSION = '1.002';
	@ISA     = 'File::HomeDir::Unix';
}

# xdg uses $ENV{XDG_CONFIG_HOME}/user-dirs.dirs to know where are the
# various &quot;my xxx&quot; directories. That is a shell file. The official API
# is the xdg-user-dir executable. It has no provision for assessing
# the directories of a user that is different than the one we are
# running under; the standard substitute user mechanisms are needed to
# overcome this.

my $xdgprog = File::Which::which('xdg-user-dir');

sub _my {
	# No quoting because input is hard-coded and only comes from this module
	my $thingy = qx($xdgprog $_[1]);
	chomp $thingy;
	return $thingy;
}

# Simple stuff
sub my_desktop   { shift-&gt;_my('DESKTOP')   }
sub my_documents { shift-&gt;_my('DOCUMENTS') }
sub my_music     { shift-&gt;_my('MUSIC')     }
sub my_pictures  { shift-&gt;_my('PICTURES')  }
sub my_videos    { shift-&gt;_my('VIDEOS')    }

sub my_data {
	$ENV{XDG_DATA_HOME}
	or
	File::Spec-&gt;catdir(
		shift-&gt;my_home,
		qw{ .local share }
	);
}

sub my_config {
	$ENV{XDG_CONFIG_HOME}
	or
	File::Spec-&gt;catdir(
		shift-&gt;my_home,
		qw{ .config }
	);
}

# Custom locations (currently undocumented)
sub my_download    { shift-&gt;_my('DOWNLOAD')    }
sub my_publicshare { shift-&gt;_my('PUBLICSHARE') }
sub my_templates   { shift-&gt;_my('TEMPLATES')   }

sub my_cache {
    $ENV{XDG_CACHE_HOME}
    ||
    File::Spec-&gt;catdir(shift-&gt;my_home, qw{ .cache });
}


#####################################################################
# General User Methods

sub users_desktop   { Carp::croak('The users_desktop method is not available on an XDG based system.');   }
sub users_documents { Carp::croak('The users_documents method is not available on an XDG based system.'); }
sub users_music     { Carp::croak('The users_music method is not available on an XDG based system.');     }
sub users_pictures  { Carp::croak('The users_pictures method is not available on an XDG based system.');  }
sub users_videos    { Carp::croak('The users_videos method is not available on an XDG based system.');    }
sub users_data      { Carp::croak('The users_data method is not available on an XDG based system.');      }

1;

=pod

=head1 NAME

File::HomeDir::FreeDesktop - Find your home and other directories on FreeDesktop.org Unix

=head1 DESCRIPTION

This module provides implementations for determining common user
directories.  In normal usage this module will always be
used via L&lt;File::HomeDir&gt;.

=head1 SYNOPSIS

  use File::HomeDir;
  
  # Find directories for the current user
  $home    = File::HomeDir-&gt;my_home;        # /home/mylogin
  $desktop = File::HomeDir-&gt;my_desktop;
  $docs    = File::HomeDir-&gt;my_documents;
  $music   = File::HomeDir-&gt;my_music;
  $pics    = File::HomeDir-&gt;my_pictures;
  $videos  = File::HomeDir-&gt;my_videos;
  $data    = File::HomeDir-&gt;my_data;

=head1 AUTHORS

Jerome Quelin E&lt;lt&gt;jquellin@cpan.org&lt;gt&gt;

Adam Kennedy E&lt;lt&gt;adamk@cpan.orgE&lt;gt&gt;

=head1 SEE ALSO

L&lt;File::HomeDir&gt;, L&lt;File::HomeDir::Win32&gt; (legacy)

=head1 COPYRIGHT

Copyright 2009 - 2011 Jerome Quelin.

Some parts copyright 2010 Adam Kennedy.

This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.

The full text of the license can be found in the
LICENSE file included with this module.

=cut
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2FFile%2FHomeDir'>Back to Directory</a>