search/lib/localbucky.pm


1
2
3
4
5
6
7
8
9
10
11
12

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