File Coverage

blib/lib/Mojolicious/Plugin/HTMLLint.pm

Criterion	Covered	Total	%
statement	24	26	92.3
branch	5	10	50.0
condition	3	7	42.8
subroutine	4	5	80.0
pod	1	1	100.0
total	37	49	75.5

package Mojolicious::Plugin::HTMLLint;
use Mojo::Base 'Mojolicious::Plugin';

use HTML::Lint;

our $VERSION = '0.04';

sub register {
    my ( $self, $app, $conf ) = @_;
    $conf ||= {};

    my $skip = delete $conf->{skip} // [];

    # On error callback
    my $on_error;
    if ( $conf->{on_error} && ref($conf->{on_error}) eq 'CODE' ) {
        $on_error = delete $conf->{on_error};
    } else {
        $on_error = sub { $app->log->warn($_[1]) };
    }



    $app->hook(
        'after_dispatch' => sub {
            my ( $c ) = @_;
            my $res = $c->res;

            # Only successful response
            return if $res->code !~ m/^2/;

            ## Only html response
            return unless $res->headers->content_type;
            return if $res->headers->content_type !~ /html/;

            my $lint = HTML::Lint->new(%$conf);
            $lint->parse($res->body);

            foreach my $error ( $lint->errors ) {
                my $err_msg = $error->as_string();
                next if $err_msg ~~ $skip;

                $on_error->( $c, "HTMLLint:" . $error->as_string );
            }
        } );
}

1;
__END__