view Lib/IMPL/DOM/Schema/Validator/RegExp.pm @ 232:5c82eec23bb6

Fixed degradations due refactoring
author sergey
date Tue, 09 Oct 2012 20:12:47 +0400
parents 4d0e1962161c
children 2904da230022
line wrap: on
line source

package IMPL::DOM::Schema::Validator::RegExp;

use parent qw(IMPL::DOM::Schema::Validator);

our %CTOR = (
    'IMPL::DOM::Schema::Validator' => sub {
        my %args = @_;
        $args{nodeName} ||= 'RegExp';
        %args;
    }
);

use IMPL::Class::Property;

BEGIN {
    public property message => prop_all;
    public property launder => prop_all;
    private property _rx => prop_all;
}

sub CTOR {
    my ($this,%args) = @_;
    
    $this->message($args{message} || "A %Node.nodeName% doesn't match to the format %Schema.display%");
}

sub Validate {
    my ($this,$node,$ctx) = @_;
    
    my $rx = $this->_rx() || $this->_rx( map qr{$_}, $this->nodeValue );
    
    return new IMPL::DOM::Schema::ValidationError(
        Node => $node,
        Source => $ctx && $ctx->{Source} || $this->parentNode,
        Schema => $this->parentNode,
        Message => $this->message
    ) unless (not $node->isComplex) and $node->nodeValue =~ /($rx)/;
    
    $node->nodeValue($1) if $this->launder;
    
    return ();
}

1;