###############################
#  plugins/grammar.pl


package grammar;

sub init {
    my $pkg = shift;
    my $ctx = shift;

    $ctx->declareVersion($pkg, '0.1');
}

sub evaluate {
    my $pkg = shift;
    my ($ctx, $snippet) = @_;

    if ($snippet =~ /use\s+strict;/) {
        $ctx->addOpinion($pkg, "Uses strict. OK");
    } else {
        $ctx->addOpinion($pkg, "Does not use strict; Heathen swine!!");
    }
}

1;