| Acme-SysPath documentation | Contained in the Acme-SysPath distribution. |
Acme::SysPath - example distribution for Sys::Path
use Acme::SysPath;
print Acme::SysPath->config;
print Acme::SysPath->template;
print Acme::SysPath->image;
use Data::Dumper; print "dump> ", Dumper(Acme::SysPath->paths), "\n";
Returns sysconfdir and datadir in a hash.
Returns config file name.
Return template file name.
Return image.
Jozef Kutej, <jkutej at cpan.org>
Please report any bugs or feature requests to bug-acme-syspath at rt.cpan.org, or through
the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Acme-SysPath. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
You can find documentation for this module with the perldoc command.
perldoc Acme::SysPath
You can also look for information at:
Copyright 2009 Jozef Kutej, all rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Acme-SysPath documentation | Contained in the Acme-SysPath distribution. |
package Acme::SysPath; use warnings; use strict; use Acme::SysPath::SPc; use File::Spec; use IO::Any;
our $VERSION = '0.05';
sub paths { return { 'sysconfdir' => Acme::SysPath::SPc->sysconfdir, 'datadir' => Acme::SysPath::SPc->datadir, } }
sub config { return File::Spec->catfile( Acme::SysPath::SPc->sysconfdir, 'acme-syspath.cfg' ); }
sub template { return File::Spec->catfile( Acme::SysPath::SPc->datadir, 'acme-syspath', 'tt', 'index.tt2' ); }
sub image { return IO::Any->slurp([ Acme::SysPath::SPc->datadir, 'acme-syspath', 'images', 'smile.ascii' ]); }
1; # End of Acme::SysPath