Poet::Import -- Import Poet quick vars and utilities
# In a script... use Poet::Script qw($conf $poet $log :file); # In a module... use Poet qw($conf $poet $log :file);
Poet makes it easy to import certain variables (known as "quick vars") and utility sets into any script or module in your environment.
In a script:
use Poet::Script qw(...);
and in a module:
use Poet qw(...);
where ... contains one or more quick var names (e.g. $conf, $poet) and/or utility tags (e.g. :file, :web).
...
$conf
$poet
:file
:web
(Note that use Poet::Script is also necessary for initializing the environment, even if you don't care to import anything, whereas use Poet has no effect other than importing.)
use Poet::Script
use Poet
Here is the built-in list of quick vars you can import. Some of the variables are singletons, and some of them are specific to each package they are imported into.
The global environment object, provided by Poet::Environment. This provides information such as the root directory and paths to subdirectories.
For backward compatibility this is also available as $env.
$env
The global configuration object, provided by Poet::Conf.
The cache for the current package, provided by Poet::Cache.
The logger for the current package, provided by Poet::Log.
The utilities in Poet::Util::Debug are always imported, with no tag necessary.
This tag imports all the utilities in Poet::Util::File.
This tag imports all the utilities in Poet::Util::Web. It is automatically included in all Mason components.
Every Mason component automatically gets this on top:
use Poet qw($conf $poet :web);
$m->cache and $m->log will get you the cache and log objects for a particular Mason component.
$m->cache
$m->log
To add your own variable, define a method called provide_var_varname in MyApp::Import. For example to add a variable $dbh:
MyApp::Import
$dbh
package MyApp::Import; use Poet::Moose; extends 'Poet::Import'; method provide_var_dbh ($caller) { # Generate and return a dbh. # $caller is the package importing the variable. # $poet is the current Poet environment. }
provide_dbh can return a single global value, or a dynamic value depending on $caller.
provide_dbh
$caller
Now your scripts and libraries can do
use Poet::Script qw($dbh); use Poet qw($dbh);
To add your own utility tag, define a class MyApp::Util::Mytagname that exports a set of functions via the ':all' tag. For example:
MyApp::Util::Mytagname
package MyApp::Util::Hash; use Hash::Util qw(hash_seed all_keys); use Hash::MoreUtils qw(slice slice_def slice_exists); our @EXPORT_OK = qw(hash_seed all_keys slice slice_def slice_exists); our %EXPORT_TAGS = ( 'all' => \@EXPORT_OK ); 1;
use Poet::Script qw(:hash); use Poet qw(:hash);
To export other general things to the calling class, you can override export_to_class, which takes the calling class as its argument. e.g.
export_to_class
package MyApp::Import; use Poet::Moose; extends 'Poet::Import'; before 'export_to_class' => sub { my ($self, $class) = @_; no strict 'refs'; %{$class . "::some_name"} = ...; }
Poet
Jonathan Swartz <swartz@pobox.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.
To install Poet, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Poet
CPAN shell
perl -MCPAN -e shell install Poet
For more information on module installation, please visit the detailed CPAN module installation guide.