Mercurial > pub > Impl

annotate Lib/IMPL/Config/Include.pm @ 245:7c517134c42f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added Unsupported media type Web exception corrected resourceLocation setting in the resource Implemented localizable resources for text messages fixed TT view scopings, INIT block in controls now sets globals correctly.
author sergey
date Mon, 29 Oct 2012 03:15:22 +0400
parents d63f9a92d6d4
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
204
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
1 package IMPL::Config::Include;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
2 use strict;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
3 use warnings;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
4 use IMPL::require {
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
5 Conf => 'IMPL::Config',
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
6 Exception => 'IMPL::Exception'
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
7 };
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
8
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
9
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
10 sub restore {
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
11 my ($self,$data) = @_;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
12
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
13 die Exception->new("A file name is required") if ref $data || not $data;
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
14
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
15 return Conf->spawn($data);
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
16 }
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
17
d63f9a92d6d4 +IMPL::Config::Include - simple way to include external config
sergey
parents:
diff changeset
18 1;