1# -----------------------------------------------------------------------------
2# $Id: ShorthandConfMixin.pm 3004 2007-12-10 12:45:39Z topia $
3# -----------------------------------------------------------------------------
4# Shorthand writing conf Mixin
5# -----------------------------------------------------------------------------
6# copyright (C) 2004 Topia <topia@clovery.jp>. all rights reserved.
7package Tiarra::ShorthandConfMixin;
8use strict;
9use warnings;
10use Exporter;
11use base qw(Exporter);
12our @EXPORT = qw(_conf _conf_general _conf_networks _conf_messages);
13
14# usage:
15#  use Tiarra::ShorthandConfMixin;
16#  use base qw(Tiarra::ShorthandConfMixin)
17
18# use _runloop function.
19
20# shorthand for Configuration->shared->...
21sub _conf { shift->_runloop->{conf}; }
22sub _conf_general { shift->_conf->general; }
23sub _conf_networks { shift->_conf->networks; }
24sub _conf_messages { shift->_conf_general->messages; }
25
261;
27