#!/usr/bin/env perl
use strict;
use warnings;
use CSS::Coverage;

@ARGV >= 2 or die "usage: $0 foo.css bar.html[, baz.html ...]\n";

my ($css_file, @html_files) = @ARGV;

my $coverage = CSS::Coverage->new(
    css       => $css_file,
    documents => \@html_files,
);

my $report = $coverage->check;
my @selectors = $report->unmatched_selectors;
exit 0 if !@selectors;

print "Unmatched selectors (" . scalar(@selectors) . "):\n";
for my $selector (@selectors) {
    print "  $selector\n";
}
exit 1;

