package TestHelper::Plugin::CheckUpper;
use Moo;
extends 'Code::TidyAll::Plugin';
sub validate_source {
my ( $self, $source ) = @_;
die "lowercase found" if $source =~ /[a-z]/;
}
1;
package TestHelper::Plugin::CheckUpper;
use Moo;
extends 'Code::TidyAll::Plugin';
sub validate_source {
my ( $self, $source ) = @_;
die "lowercase found" if $source =~ /[a-z]/;
}
1;