The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Rose::HTML::Object::Messages - Message ids and named constants for use with HTML objects.

SYNOPSIS

package My::HTML::Object::Messages;

use strict;

# Import the standard set of message ids
use Rose::HTML::Object::Messages qw(:all);
use base qw(Rose::HTML::Object::Messages);

##
## Define your new message ids below
##

# Message ids from 0 to 29,999 are reserved for built-in messages.
# Negative message ids are reserved for internal use.  Please use
# message ids 30,000 or higher for your messages.  Suggested message
# id ranges and naming conventions for various message types are
# shown below.

# Field labels

use constant FIELD_LABEL_LOGIN_NAME         => 100_000;
use constant FIELD_LABEL_PASSWORD           => 100_001;
...

# Field error messages

use constant FIELD_ERROR_PASSWORD_TOO_SHORT => 101_000;
use constant FIELD_ERROR_USERNAME_INVALID   => 101_001;
...

# Generic messages

use constant LOGIN_NO_SUCH_USER             => 200_000;
use constant LOGIN_USER_EXISTS_ERROR        => 200_001;
...

# This line must be below all the "use constant ..." declarations
BEGIN { __PACKAGE__->add_messages }

1;

DESCRIPTION

Rose::HTML::Object::Messages stores message ids and names. The message ids are defined as Perl constants with integer values. The constants themselves as well as the mapping between the symbolic constant names and their values are stored as class data.

If you merely want to import one of the standard message id constants, you may use this module as-is (see the EXPORTS section for details). If you want to define your own messages, you must subclass this module exactly as shown in the synopsis. The order of the statements is important!

When adding your own messages, you are free to choose any integer message id values, subject to the following constraints:

  • Message ids from 0 to 29,999 are reserved for built-in messages.

  • Negative message ids are reserved for internal use.

Please use ids 30,000 or higher for your messages. Constant names may contain only the characters [A-Z0-9_] and must be unique among all message constant names.

EXPORTS

Rose::HTML::Object::Messages does not export any symbols by default.

The 'all' tag:

use Rose::HTML::Object::Messages qw(:all);

will cause all message name constant to be imported.

The following tags will cause all messages whose names match the regular expression to the right of the tag name to be imported.

TAG       NAME REGEX
-----     -----------------
field     ^FIELD_
form      ^FORM_
date      ^DATE_|_(?:YEAR|MONTH|DAY)$
time      ^TIME_|_(?:HOUR|MINUTE|SECOND)$
email     ^EMAIL_
phone     ^PHONE_
number    ^NUM_
set       ^SET_
string    ^STRING_

For example, this will import all the message constants whose names begin with "FIELD_"

use Rose::HTML::Object::Messages qw(:field);

Finally, you can import individual message constant names as well:

use Rose::HTML::Object::Messages qw(FIELD_LABEL_YEAR TIME_INVALID);

A complete listing of the default set of message constant names appears in the next section.

BUILT-IN MESSAGES

The list of built-in messages constant names appears below. You should not rely on the actual numeric values of these constants. Import and refer to them only by their symbolic names.

FIELD_LABEL
FIELD_DESCRIPTION
FIELD_REQUIRED_GENERIC
FIELD_REQUIRED_LABELLED
FIELD_REQUIRED_SUBFIELD
FIELD_REQUIRED_SUBFIELDS
FIELD_PARTIAL_VALUE
FIELD_INVALID_GENERIC
FIELD_INVALID_LABELLED

FIELD_LABEL_YEAR
FIELD_LABEL_MONTH
FIELD_LABEL_DAY
FIELD_LABEL_HOUR
FIELD_LABEL_MINUTE
FIELD_LABEL_SECOND

FIELD_ERROR_LABEL_YEAR
FIELD_ERROR_LABEL_MONTH
FIELD_ERROR_LABEL_DAY
FIELD_ERROR_LABEL_HOUR
FIELD_ERROR_LABEL_MINUTE
FIELD_ERROR_LABEL_SECOND

FIELD_ERROR_LABEL_MINIMUM_DATE
FIELD_ERROR_LABEL_MAXIMUM_DATE

FORM_HAS_ERRORS

NUM_INVALID_INTEGER
NUM_INVALID_INTEGER_POSITIVE
NUM_NOT_POSITIVE_INTEGER
NUM_BELOW_MIN
NUM_ABOVE_MAX
NUM_INVALID_NUMBER
NUM_INVALID_NUMBER_POSITIVE
NUM_NOT_POSITIVE_NUMBER

STRING_OVERFLOW

DATE_INVALID
DATE_MIN_GREATER_THAN_MAX

TIME_INVALID
TIME_INVALID_HOUR
TIME_INVALID_MINUTE
TIME_INVALID_SECONDS
TIME_INVALID_AMPM

EMAIL_INVALID

PHONE_INVALID

SET_INVALID_QUOTED_STRING
SET_PARSE_ERROR

CLASS METHODS

add_message NAME, ID

Add a new message constant with NAME and an integer ID value. Message ids from 0 to 29,999 are reserved for built-in messages. Negative message ids are reserved for internal use. Please use message ids 30,000 or higher for your messages. Constant names may contain only the characters [A-Z0-9_] and must be unique among all message names.

add_messages [NAME1, NAME2, ...]

If called with no arguments, this method adds all message constants defined in the calling class. Example:

__PACKAGE__->add_messages;

If called with a list of constant names, add each named constant to the list of messages. These constants must already exist in the calling class. Example:

use constant MY_MESSAGE1 => 123456;
use constant MY_MESSAGE2 => 123457;
...
__PACKAGE__->add_messages('MY_MESSAGE1', 'MY_MESSAGE2');
get_message_id NAME

Returns the integer message id corresponding to the symbolic constant NAME, or undef if no such name exists.

get_message_name ID

Returns the symbolic message constant name corresponding to the integer message ID, or undef if no such message ID exists.

message_id_exists ID

Return true if the integer message ID exists, false otherwise.

message_name_exists NAME

Return true if the symbolic message constant NAME exists, false otherwise.

message_ids

Returns a list (in list context) or reference to an array (in scalar context) of integer message ids.

message_names

Returns a list (in list context) or reference to an array (in scalar context) of message names.

AUTHOR

John C. Siracusa (siracusa@gmail.com)

LICENSE

Copyright (c) 2010 by John C. Siracusa. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.