/ 
Acme-Web20-Validator-0.01
River stage zero No dependents
/ Acme::Web20::Validator

NAME

Acme::Web20::Validator - Web 2.0 Validation

SYNOPSIS

use Acme::Web20::Validator;
my $v = Acme::Web20::Validator->new;
$v->add_rule(
  'Acme::Web20::Validator::Rule::HasAnyFees',
  'Acme::Web20::Validator::Rule::UseCatalyst',
  ...
);
print $v->validation_report('http://web2.0validator.com/');
printf "The score is %d out of %d", $validator->ok_count, $v->rule_size;

## OR

my $v = Acme::Web20::Validator->new;
$v->set_all_rules;
$v->validate('http://web2.0validator.com/');
print $v->validation_report;

## OR
my $v = Acme::Web20::Validator->new;
$v->set_all_rules;
my @rules = $v->validate('http://web2.0validator.com/');
print $_->name . "\t" . $_->is_ok for (@rules);

DESCRIPTION

Acme::Web20::Validator is a Web 2.0 Validation module for your website. This module is inspired from Web 2.0 Validator (http://web2.0validator.com/).

The definition of web 2.0 changes on a daily basis but currently supports are:

UsePrototype
UseCatalyst
UseRails
MentionsWeb20
UseLighttpd
HasAnyFeeds
ReferToDelicious
XHtmlStrict
UseCSS
UseFeedBurner
HasTrackbackURI

And the Rule is also pluggable with Module::Pluggable, so you can add any rules by yourself. For example:

package Acme::Web20::Validator::Rule::MyRule;
use strict;
use warnings;
use base qw (Acme::Web20::Validator::Rule);
__PACKAGE__->name('Your rule's description');

sub validate {
    my $self = shift;
    my $res = shift; ## HTTP::Response via LWP
    ...
    $self->is_ok(1) if ...;
}

1;

METHODS

new

my $v = Acme::Web20::Validator->new;

Creates and returns a validator instance.

add_rule

$v->add_rule(
  'Acme::Web20::Validator::Rule::HasAnyFees',
  'Acme::Web20::Validator::Rule::UseCatalyst',
)

Adds validation rules to the validator.

set_all_rules

$v->set_all_rules;

Adds Acme::Web20::Validator::Rule::* to the validator.

validate

my @rules = $v->validate($url);
print $rules[0]->name;
print $rules[0]->is_ok ? 'Yes!' : 'No';

Validates the website and returns rules which know the result of each validation and rule's description.

validation_report

print $v->validation_report($url)

## OR
$v->validate($url);
print $v->validation_report;

Returns a validation report formatted by Text::ASCIITable.

rules_size

Returns a number of rules validator has.

ok_count

Returns a number of OK after validation.

clear

$v->validation_report($url[0]);
$v->clear;
$v->validation_report($url[1]);
$v->clear;
...

Clears validation result in the instance for reusing. If you want to validate for other rules, create a new instance instead of reusing them.

SEE ALSO

Module::Pluggable

TODO

Improve Catalyst, Rails checking logic. Add more rules.

AUTHOR

Naoya Ito, <naoya@bloghackers.net>

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.