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

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

package WWW::Mooos::Scraper::Validate::NewComments;

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

our $VERSION = 0.02;

sub validate_map {

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


sub validate_message {

    my $self = shift;
    my %message = ( page => { regex => "it is not a value of one or more" } );
    return \%message;
}

1;