Mercurial > pub > Impl

view Lib/IMPL/DOM/Schema/InflateFactory.pm @ 114:7084af955c57

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
minor changes, more strict code, no bugs fixed, no features added
author wizard
date Tue, 25 May 2010 01:26:42 +0400
parents 196bf443b5e1
children d1676be8afcc
line wrap: on
line source

package IMPL::DOM::Schema::InflateFactory;
use strict;

require IMPL::Exception;
require IMPL::Object::Factory;

sub new {
	my ($self,$value) = @_;
	
	if ($value =~ /^(\w+(?:::\w+)*)(?:\.(\w+))?$/) {
		return IMPL::Object::Factory->new($1,undef,$2);	
	} else {
		die new IMPL::InvalidArgumentException("Expected value in the format PACKAGE::NAME.method_name",$value);
	}
}

1;