annotate Lib/IMPL/Config/Include.pm @ 393:69a1f1508696

minor security refactoring
author cin
date Fri, 14 Feb 2014 16:41:12 +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;