view Lib/IMPL/DOM/Schema/InflateFactory.pm @ 215:77a9934a44af

sync, migrating to XML::Compile
author cin
date Sun, 19 Aug 2012 22:27:43 +0400
parents 4d0e1962161c
children 814d755e5d12
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;