NAME Constant::Exporter - define and export constants easily SYNOPSIS # define constants in your MyApp::Constants, package MyApp::Constants; use strict; use warnings; use Constant::Exporter ( EXPORT => { FB_CLIENT_ID => 12345, }, EXPORT_OK => { TITLE_MAX_LENGTH => 128, }, EXPORT_TAGS => { user_status => { USER_STATUS_FB_ASSOCIATED => 1, USER_STATUS_FB_NOT_ASSOCIATED => 0, }, }, EXPORT_OK_TAGS => { fb_api_error => { ERROR_OAUTH => 190, ERROR_API_SESSION => 102, ERROR_API_USER_TOO_MANY_CALLS => 17, }, fb_payment_error => { ERROR_PAYMENTS_ASSOCIATION_FAILURE => 1176, ERROR_PAYMENTS_INSIDE_IOS_APP => 1177, ERROR_PAYMENTS_NOT_ENABLED_ON_MOBILE => 1178, }, }, ); 1; # then use it like Exporter's `%EXPORT_TAGS` and `@EXPORT_OK` package main; use MyApp::Constants qw( TITLE_MAX_LENGTH :fb_api_error ); sub foo { my ($title) = @_; if (length $title > TITLE_MAX_LENGTH) { ... } } sub bar { my ($response) = @_; if ($response->{error}{code} == ERROR_OAUTH) { ... } } DESCRIPTION Constant::Exporter is a module to define and export constants easily. This module adopts Exporter's full functionality so you can import constants with default constants, tags or only selected constants. KEYS AND MEANINGS "EXPORT", "EXPORT_TAGS" Constant names in "EXPORT" and "EXPORT_TAGS" will be exported by default. "EXPORT_OK" "EXPORT_OK_TAGS" Constant names in "EXPORT_OK" and "EXPORT_OK_TAGS" will not be exported by default. You can import these constants by feeding arguments to your constant class. AUTHOR punytan COPYRIGHT Copyright 2013- punytan LICENSE This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. SEE ALSO Exporter