view release on metacpan or  search on metacpan

lib/App/Widget/StylizableContainer.pm  view on Meta::CPAN

######################################################################
## $Id: StylizableContainer.pm 3668 2006-03-11 20:51:13Z spadkins $
######################################################################

package App::Widget::StylizableContainer;
$VERSION = (q$Revision: 3668 $ =~ /(\d[\d\.]*)/)[0];  # VERSION numbers generated by svn

use App::Widget;
@ISA = ( "App::Widget" );

use strict;

=head1 NAME

App::Widget::StylizableContainer - An HTML element which can use the standard set of style elements

=head1 SYNOPSIS

   use App::Widget::StylizableContainer;

=cut

######################################################################
# CONSTANTS
######################################################################

# These are the valid style sheet attributes
my @style_attrib = (
    "color",
    "font_size",
    "border_style",
    "border_width",
    "border_color",
    "padding",
    "background_color",
    "font_family",
);

# TODO: consider getting list of ("lang") from parent
my @absorbable_attrib = (
    "lang",            # language (en, de, fr, en_us, en_ca, etc.)
    @style_attrib,
);

######################################################################
# ATTRIBUTES
######################################################################

# INPUTS FROM THE ENVIRONMENT

=head1 DESCRIPTION

This class is an HTML element which can take the STYLE attribute.

=cut

######################################################################
# METHODS
######################################################################

# NOTE: This is a *static* method.
#       It doesn't require an instance of the class to call it.
sub absorbable_attribs {
    \@absorbable_attrib;
}

######################################################################
# OUTPUT METHODS
######################################################################

1;