ch07.013_prob

来自「Perl Best Practices the source code」· 013_PROB 代码 · 共 14 行

##############################################################################
## Code fragment (NOT RECOMMENDED) from Chapter 7 of "Perl Best Practices"  ##
##     Copyright (c) O'Reilly & Associates, 2005. All Rights Reserved.      ##
##  See: http://www.oreilly.com/pub/a/oreilly/ask_tim/2001/codepolicy.html  ##
##############################################################################


# This method returns a hash containing the defaults currently being
# used to initialize configuration objects. It takes no arguments.
# There isn't a corresponding class attribute; instead it collects 
# the necessary information from the various attr_def attributes. There's
# also a set_default() method.