#!/usr/bin/perl use strict; use warnings; use Test::More; use English qw(-no_match_vars); if ( not $ENV{TEST_AUTHOR} ) { my $msg = 'Author test. Set $ENV{TEST_AUTHOR} to a true value to run.'; plan( skip_all => $msg ); } chdir '..' if -d ('../t'); eval 'use Test::Kwalitee'; if ( $EVAL_ERROR ) { my $msg = 'Test::Kwalitee not installed; skipping'; plan( skip_all => $msg ); }