Poet::Environment -- Poet environment
# In a script... use Poet::Script qw($poet); # In a module... use Poet qw($poet); # $poet is automatically available in Mason components # then... my $root_dir = $poet->root_dir; my $file = $poet->path("some/file.txt"); my $path_to_script = $poet->bin_path("foo/bar.pl"); my $path_to_lib = $poet->lib_path("Foo/Bar.pm");
The Poet::Environment object contains information about the current environment and its directory paths.
Returns the root directory of the environment, i.e. where .poet_root is located.
Returns the root directory with a relative subpath added. e.g. if the Poet environment root is
$poet->path("somefile.txt"); ==> returns /my/env/root/somefile.txt
Returns the specified subdirectory, which by default will be just below the root dirctory. e.g. if the Poet environment root is
$poet->conf_dir ==> returns /my/env/root/conf $poet->lib_dir ==> returns /my/env/root/lib
Returns the specified subdirectory with a relative subpath added. e.g. if the Poet environment root is
$poet->conf_path("log4perl.conf"); ==> returns /my/env/root/conf/log4perl.conf $poet->lib_path("Data/Type.pm"); ==> returns /my/env/root/lib/Data/Type.pm
Returns the full class name to use for the specified class, depending on whether there is a subclass in the environment. e.g.
MyApp::Cache if that module exists, and otherwise
Poet::Cache. This is used internally by Poet to implement auto subclassing.
Returns the app name, e.g. 'MyApp', found in .poet_root.
Returns the Poet::Conf object associated with the environment. Usually you'd access this by importing
A class method that returns the current (singleton) environment for the process. Usually you'd access this by importing
In a script:
use Poet::Script qw($poet);
In a module:
use Poet qw($poet);
$poet is automatically available in components.
You can also get it via
my $poet = Poet::Environment->current_env;
Any subdirectories other than conf_dir can be overridden in configuration. e.g.
# Override bin_dir env.bin_dir: /some/other/bin/dir
With this configuration in place,
$poet->bin_dir ==> returns /some/other/bin/dir $poet->bin_path("foo/bar.pl") ==> returns /some/other/bin/dir/foo/bar.pl
Jonathan Swartz <email@example.com>
This software is copyright (c) 2012 by Jonathan Swartz.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.