Mercurial > pub > Impl

comparison Lib/IMPL/Config/Class.pm @ 92:5f676b61fb8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::Config::Resolve alpha version
author wizard
date Tue, 27 Apr 2010 20:10:07 +0400
parents 16ada169ca75
children 76515373dac0
comparison
equal deleted inserted replaced
91:9cb8e730fa86 92:5f676b61fb8b
18 sub CTOR { 18 sub CTOR {
19 my $this = shift; 19 my $this = shift;
20 20
21 die new IMPL::Exception("A Type parameter is required") unless $this->Type; 21 die new IMPL::Exception("A Type parameter is required") unless $this->Type;
22 22
23 warn "IMPL::Config::Class is absolute, use IMPL::Config::Activator instead";
23 } 24 }
24 25
25 sub _is_class { 26 sub _is_class {
26 no strict 'refs'; 27 no strict 'refs';
27 scalar keys %{"$_[0]::"} ? 1 : 0; 28 scalar keys %{"$_[0]::"} ? 1 : 0;