Parent Directory | Revision Log | Patch
revision 229 by dpavlin, Sat Nov 1 13:17:45 2008 UTC | revision 322 by dpavlin, Thu Nov 6 17:56:59 2008 UTC | |
---|---|---|
# | Line 48 sub load_config { | Line 48 sub load_config { |
48 | } | } |
49 | ||
50 | sub config { | sub config { |
51 | my $self = shift; | my ( $self, $key ) = @_; |
52 | my $key = shift || ref($self); | $key ||= ref($self); |
53 | warn "## config $key" if $self->debug; | warn "## config $key" if $self->debug; |
54 | $self->load_config unless defined %config; | $self->load_config unless defined %config; |
55 | #confess "$key doesn't exist in config" unless defined $config{ $key }; | #confess "$key doesn't exist in config" unless defined $config{ $key }; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |