プニプニ

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 <punytan@gmail.com>

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