view release on metacpan or  search on metacpan

Config.pm  view on Meta::CPAN

=cut
    sub new {
        my ($proto) = @_;
        my $self = bless {}, ref($proto) || $proto;
        return $self;
    }

    sub _getSubNameSpace {
        my ($self, $file) = @_;
        my @stat_info = CORE::stat($file);
        my ($dev, $ino) = @stat_info[0,1];
        return join('_', map { sprintf("%x", $_) } ($dev, $ino));
    }

    sub loadFile {
        my ($self, $file) = @_;
        my $name = $self->_getSubNameSpace($file);
        my $name_space = "Class::Config::Confs::$name";
        my $obj = Class::Config::File->new($file, { name_space => $name_space, path => $file });
        $obj->load;