Bryar::Config - A set of configuration settings for Bryar

	Bryar::Config->new(...);
	Bryar::Config->load(...);

    Bryar::Config->new(...)

    $self->load($file)

	$self->renderer();    # Get renderer
	$self->renderer(...); # Set renderer

	$self->frontend();    # Get frontend
	$self->frontend(...); # Set frontend

	$self->collector();    # Get collector
	$self->collector(...); # Set collector

	$self->source();    # Get source
	$self->source(...); # Set source

	$self->cache();    # Get cache object
	$self->cache(new Cache::FileCache()); # Set cache object

	$self->datadir();    # Get datadir
	$self->datadir(...); # Set datadir

	$self->name();    # Get name

	$self->description();    # Get description

	$self->depth();    # Get depth
	$self->depth(...); # Set depth

    $self->email();     # Get email

    $self->recent();    # Get recent
    $self->recent(...); # Set recent

	$self->baseurl();    # Get baseurl

package Bryar::Config;
use UNIVERSAL::require;
use 5.006;
use strict;
use warnings;
use Carp;
our $VERSION = '1.1';

our %default_args = (
        source => "Bryar::DataSource::FlatFile",
        name => "My web log",
        description => "Put a better description here",
        baseurl =>  "",
        datadir => ".",
        email => 'someone@example.com',
        depth => 1,
        recent => 20,
        renderer => "Bryar::Renderer::TT",
        collector => "Bryar::Collector",
        frontend => ((exists $ENV{GATEWAY_INTERFACE} and 
                      $ENV{'GATEWAY_INTERFACE'} =~ /^CGI-Perl\//)
                    ? "Bryar::Frontend::Mod_perl"
                    : "Bryar::Frontend::CGI")
);

sub new {
    my $class = shift;
    my %args = (%default_args, @_); # This does need to happen in stages
    my $self = bless { %args, %_ }, $class;
    # Because setting datadir above may affect where the config file is.

    %args = (%args, $self->load($args{config} || "bryar.conf"));
    @{$self}{keys %args} = values %args;

    foreach my $module (qw(renderer source collector frontend)) {
        $self->$module->require or die $@;
        $self->$module($self->$module->new(config => $self))
            if $self->$module->can('new') or ref $self->$module;
    }

    return $self;
}

sub load {
    my ($self, $file) = @_;
    my %args;
    my $datadir = $self->{datadir};
    if (!-r $file) {
        if (-r "$datadir/$file") { $file = "$datadir/$file"; }
        else                     { return () }
    }
    open(my $config, '<:utf8', $file) or return ();
    while (<$config>) {
        chomp;
        next if /^#/ or /^$/;
        my ($k, $v) = split /\s*:\s*/, $_, 2;
        $args{$k} = $v;
    }
    close $config;
    return %args;
}

sub renderer {
    my $self = shift;
    if (@_) { $self->{renderer} = shift };

    return $self->{renderer};
}

sub frontend {
    my $self = shift;
    if (@_) { $self->{frontend} = shift };

    return $self->{frontend};
}

sub collector {
    my $self = shift;
    if (@_) { $self->{collector} = shift };

    return $self->{collector};
}

sub source {
    my $self = shift;
    if (@_) { $self->{source} = shift };

    return $self->{source};
}

sub cache {
    my $self = shift;
    if (@_) { $self->{cache} = shift };

    return $self->{cache};
}

sub datadir {
    my $self = shift;
    if (@_) { $self->{datadir} = shift};

    return $self->{datadir};
}

sub name {
    my $self = shift;
    return $self->{name};
}

sub description {
    my $self = shift;
    return $self->{description};
}

sub depth {
    my $self = shift;
    if (@_) { $self->{depth} = shift };

    return $self->{depth};
}

sub email {
    my $self = shift;
    return $self->{email};
}

sub recent {
    my $self = shift;
    if (@_) { $self->{recent} = shift };

    return $self->{recent};
}

sub baseurl {
    my $self = shift;
    return $self->{baseurl};
}

1;