/usr/local/CPAN/WWW-Mooos-Scraper/WWW/Mooos/Scraper/Validate/Search.pm

• package WWW::Mooos::Scraper::Validate::Search
  • validate_map
  • validate_message
• EOF

package WWW::Mooos::Scraper::Validate::Search;

use strict;
use warnings;
use base qw(WWW::Mooos::Scraper::Validate);

our $VERSION = 0.01;

sub validate_map {

    my $self = shift;
    my %map = (
        page => [ "skip", [ "regex", qr/^\d{1,}$/ ] ], 
        url  => [ "require", "url", [ "length", 256 ] ]
    );
    return \%map;
}


sub validate_message {

    my $self = shift;
    my %message = (
        page => { regex => "it is not a value of one or more" },
        url  => { 
            "require" => "value is empty",
            "url"     => "invalid url string",
            "length"  => "within 256 bytes",
        }
    );
    return \%message;
}

1;