Mercurial > pub > Impl

view Lib/IMPL/DOM/Schema/InflateFactory.pm @ 168:6148f89bb7bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
IMPL::SQL::Schema::Traits::Diff alfa version IMPL::lang added hash traits
author sourcer
date Mon, 16 May 2011 04:30:38 +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;