CatalystX::Usul::Model::Config::Keys - Class definition for keys configuration element

CatalystX-Usul documentation

Contained in the CatalystX-Usul distribution.

Index

Name
Version
Synopsis
Description
Subroutines/Methods
Diagnostics
Configuration and Environment
Dependencies
- CatalystX::Usul::Model::Config
Incompatibilities
Bugs and Limitations
Author
License and Copyright

Code Index:

package CatalystX::Usul::Model::Config::Keys
__END__
EOF

Name

CatalystX::Usul::Model::Config::Keys - Class definition for keys configuration element

Version

0.3.$Revision: 591 $

Synopsis

   # Instantiated by Catalyst when the application starts

Description

Defines the attributes for the <keys> element in the configuration files

Defines one language independent attribute; vals

Subroutines/Methods

None

Diagnostics

None

Configuration and Environment

None

Dependencies

CatalystX::Usul::Model::Config

Incompatibilities

There are no known incompatibilities in this module

Bugs and Limitations

There are no known bugs in this module. Please report problems to the address below. Patches are welcome

Author

Peter Flanigan, <Support at RoxSoft.co.uk>

License and Copyright

Copyright (c) 2008 Peter Flanigan. All rights reserved

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See perlartistic

This program is distributed in the hope that it will be useful, but WITHOUT WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE

CatalystX-Usul documentation

Contained in the CatalystX-Usul distribution.

# @(#)$Id: Keys.pm 591 2009-06-13 13:34:41Z pjf $

package CatalystX::Usul::Model::Config::Keys;

use strict;
use warnings;
use version; our $VERSION = qv( sprintf '0.3.%d', q$Rev: 591 $ =~ /\d+/gmx );
use parent qw(CatalystX::Usul::Model::Config);

__PACKAGE__->config
   ( create_msg_key    => q(Keys [_1]/[_2] created),
     delete_msg_key    => q(Keys [_1]/[_2] deleted),
     keys_attr         => q(key),
     schema_attributes => {
        attributes     => [ qw(vals) ],
        defaults       => { vals => {} },
        element        => q(keys),
        lang_dep       => q(), },
     table_data        => { vals => { align  => { name => q(left),
                                                  key  => q(left) },
                                      flds   => [ qw(name key) ],
                                      labels => { name => q(Key),
                                                  key  => q(Default) },
                                      sizes  => { name => 16,
                                                  key  => 32 } } },
     typelist          => {},
     update_msg_key    => q(Keys [_1]/[_2] updated), );

1;

__END__

# Local Variables:
# mode: perl
# tab-width: 3
# End: