Mercurial > pub > Impl
comparison Lib/IMPL/DOM/Schema/InflateFactory.pm @ 194:4d0e1962161c
Replaced tabs with spaces
IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author | cin |
---|---|
date | Tue, 10 Apr 2012 20:08:29 +0400 |
parents | d1676be8afcc |
children | 814d755e5d12 |
comparison
equal
deleted
inserted
replaced
193:8e8401c0aea4 | 194:4d0e1962161c |
---|---|
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) = @_; |
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); |
14 } | 14 } |
15 } | 15 } |
16 | 16 |
17 1; | 17 1; |