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).

(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.)


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.


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.


Default utilities

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.


Adding variables

To add your own variable, define a method called provide_var_varname in MyApp::Import. For example to add a variable $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.

Now your scripts and libraries can do

    use Poet::Script qw($dbh);
    use Poet qw($dbh);

Adding utility tags

To add your own utility tag, define a class MyApp::Util::Mytagname that exports a set of functions via the ':all' tag. For example:

    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 );


Now your scripts and libraries can do

    use Poet::Script qw(:hash);
    use Poet qw(:hash);

Other exports

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.

    package MyApp::Import;
    use Poet::Moose;
    extends 'Poet::Import';

    before 'export_to_class' => sub {
        my ($self, $class) = @_;
        no strict 'refs';
        %{$class . "::some_name"} = ...;




Jonathan Swartz <>


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.