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