Mercurial > pub > Impl

comparison Lib/IMPL/DOM/Schema/InflateFactory.pm @ 248:814d755e5d12

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Minor fixes
author sergey
date Tue, 06 Nov 2012 00:58:15 +0400
parents 4d0e1962161c
children
comparison
equal deleted inserted replaced
247:2270de2469ff 248:814d755e5d12
3 3
4 require IMPL::Exception; 4 require IMPL::Exception;
5 require IMPL::Object::Factory; 5 require IMPL::Object::Factory;
6 6
7 sub new { 7 sub new {
8 my ($self,$value) = @_; 8 my ($self,$value,$schema) = @_;
9 9
10 if ($value =~ /^(\w+(?:::\w+)*)(?:\.(\w+))?$/) { 10 if ($value =~ /^(\w+(?:::\w+)*)(?:\.(\w+))?$/) {
11 return IMPL::Object::Factory->new($1,undef,$2); 11 return IMPL::Object::Factory->new($1,undef,$2);
12 } else { 12 } else {
13 die new IMPL::InvalidArgumentException("Expected value in the format PACKAGE::NAME.method_name",$value); 13 die new IMPL::InvalidArgumentException("Expected value in the format PACKAGE::NAME.method_name",$value);