File Coverage

blib/lib/Eidolon/Core/Config.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	2	2	100.0
total	23	23	100.0

package Eidolon::Core::Config;
# ==============================================================================
#
#   Eidolon
#   Copyright (c) 2009, Atma 7
#   ---
#   Eidolon/Core/Config.pm - system config
#
# ==============================================================================

use FindBin;
use warnings;
use strict;

our ($VERSION, $INSTANCE);

$VERSION  = "0.02"; # 2009-05-14 04:54:08
$INSTANCE = undef;

# ------------------------------------------------------------------------------
# \% new($name, $type)
# constructor
# ------------------------------------------------------------------------------
sub new
{
    my ($class, $name, $type, $self);

    ($class, $name, $type) = @_;

    # class attrubutes
    $self =
    {
        # application settings
        "app" =>
        {
            "title"   => undef,
            "name"    => $name,
            "version" => $name->VERSION,
            "root"    => $FindBin::Bin,
            "lib"     => $FindBin::Bin."/lib",
            "type"    => $type,
            "policy"  => "private",
            "error"   => [ "Eidolon::Error", "error" ]
        },

        # CGI settings
        "cgi" =>
        {
            "max_post_size"  => 600000,
            "tmp_dir"        => "/tmp/",
            "charset"        => "UTF-8",
            "content_type"   => "text/html",
            "session_cookie" => "SESSIONID",
            "session_time"   => 3600
        },

        # driver list
        "drivers" => []
    };

    bless $self, $class;
    $INSTANCE = $self;

    return $self;
}

# ------------------------------------------------------------------------------
# \% get_instance()
# get config instance
# ------------------------------------------------------------------------------
sub get_instance
{
    return $INSTANCE;
}

1;

__END__