20-perl-critic-check.t

Enable keyboard shortcuts

++ #!/usr/bin/env perl

++ use v5.10;

++ use strict;

++ use warnings;

++

++ =head1 NAME

++

++ 20-perl-critic-check.t - use Perl::Critic to check all perl scripts

++

++ =head1 DESCRIPTION

++

++ This autotest uses Perl::Critic in stern mode to do some static code

++ checks of all perl scripts and modules within this repo.

++

++ =cut

++

++ use autodie;

++ use Cwd                   qw( abs_path        );

++ use File::Spec::Functions qw( catfile         );

++ use FindBin               qw();

++ use Test::Perl::Critic    qw( -severity stern );

++ use Test::More;

++

++ use lib $FindBin::Bin;

++ use QtQA::PerlChecks;

++

++ sub main

++ {

++     my $base = abs_path( catfile( $FindBin::Bin, '..' ) );

++     chdir( $base );

++

++     foreach my $file (QtQA::PerlChecks::all_perl_files_in_git( )) {

++         critic_ok( $file );

++     }

++     done_testing( );

++

++     return;

++ }

++

++ main if (!caller);

++ 1;