package Bucky; my $LOCAL_CONFIG = { SVN_SECRET => '1s0c4h3dr0n', }; sub config { my ($self, $key) = @_; $key ||= $self; return $LOCAL_CONFIG->{$key} if $LOCAL_CONFIG->{$key}; } 1;