* Misc
- Fixup our distbuilding process to stop creating world-writable
tarball contents (implicitly fixes RT#83084)
+ - Added strict and warnings tests for all lib and test files
0.08206 2013-02-08
* Fixes
package MyDatabase::Main;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Schema/;
__PACKAGE__->load_namespaces;
package # hide from PAUSE
DBIx::Class::Admin::Descriptive;
+use warnings;
+use strict;
use base 'Getopt::Long::Descriptive';
package # hide from PAUSE
DBIx::Class::Admin::Usage;
+use warnings;
+use strict;
use base 'Getopt::Long::Descriptive::Usage';
},
},
+ test_strictures => {
+ req => {
+ 'Test::Strict' => '0.16',
+ },
+ },
+
test_prettydebug => {
req => $json_any,
},
package # Hide from PAUSE
DBIx::Class::SQLAHacks;
+use warnings;
+use strict;
+
use base qw/DBIx::Class::SQLMaker/;
1;
package # Hide from PAUSE
DBIx::Class::SQLAHacks::MSSQL;
+use warnings;
+use strict;
+
use base qw( DBIx::Class::SQLMaker::MSSQL );
1;
package # Hide from PAUSE
DBIx::Class::SQLAHacks::MySQL;
+use warnings;
+use strict;
+
use base qw( DBIx::Class::SQLMaker::MySQL );
1;
package # Hide from PAUSE
DBIx::Class::SQLAHacks::Oracle;
+use warnings;
+use strict;
+
use base qw( DBIx::Class::SQLMaker::Oracle );
1;
package # Hide from PAUSE
DBIx::Class::SQLAHacks::OracleJoins;
+use warnings;
+use strict;
+
use base qw( DBIx::Class::SQLMaker::OracleJoins );
1;
package # Hide from PAUSE
DBIx::Class::SQLAHacks::SQLite;
+use warnings;
+use strict;
+
use base qw( DBIx::Class::SQLMaker::SQLite );
1;
package # Hide from PAUSE
DBIx::Class::SQLMaker::MSSQL;
+use warnings;
+use strict;
+
use base qw( DBIx::Class::SQLMaker );
#
package # Hide from PAUSE
DBIx::Class::SQLMaker::SQLite;
+use warnings;
+use strict;
+
use base qw( DBIx::Class::SQLMaker );
#
package DBIx::Class::StartupCheck;
+use strict;
+use warnings;
+
=head1 NAME
DBIx::Class::StartupCheck - Run environment checks on startup
package DBIx::Class::Storage::DBI::ADO;
+use warnings;
+use strict;
+
use base 'DBIx::Class::Storage::DBI';
use mro 'c3';
package DBIx::Class::Storage::DBI::Sybase::ASE::NoBindVars;
+use warnings;
+use strict;
+
use base qw/
DBIx::Class::Storage::DBI::NoBindVars
DBIx::Class::Storage::DBI::Sybase::ASE
use strict;
+use warnings;
use Test::More;
use Data::Dumper;
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
+
use Test::More;
use Scalar::Util 'refaddr';
use namespace::clean;
use strict;
+use warnings;
+
use Test::More;
#----------------------------------------------------------------------
use strict;
+use warnings;
use Test::More;
@YA::Film::ISA = 'Film';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
INIT {
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
$| = 1;
+use warnings;
use strict;
use Test::More;
-use Test::More;
-
use strict;
+use warnings;
+use Test::More;
use lib 't/cdbi/testlib';
use Actor;
use strict;
+use warnings;
use Test::More;
use Data::Dumper;
use strict;
+use warnings;
use Test::More;
use Test::Warn;
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
#----------------------------------------------------------------------
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use Test::Warn;
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
INIT {
use strict;
+use warnings;
use Test::More;
INIT {
use strict;
+use warnings;
use Test::More;
use strict;
+use warnings;
use Test::More;
use Class::Inspector ();
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
#----------------------------------------------------------------------
use strict;
+use warnings;
use Test::More;
INIT {
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
$| = 1;
use strict;
+use warnings;
use Test::More;
INIT {
use strict;
+use warnings;
use Test::More;
use lib 't/cdbi/testlib';
use strict;
+use warnings;
use Test::More;
use Test::Exception;
package # hide from PAUSE
Blurb;
+use warnings;
use strict;
+
use base 'DBIC::Test::SQLite';
__PACKAGE__->set_table('Blurbs');
package # hide from PAUSE
CDBase;
+use warnings;
use strict;
+
use base qw(DBIC::Test::SQLite);
1;
package # hide from PAUSE
Director;
+use warnings;
use strict;
+
use base 'DBIC::Test::SQLite';
__PACKAGE__->set_table('Directors');
package # hide from PAUSE
Film;
-use base 'DBIC::Test::SQLite';
+use warnings;
use strict;
+use base 'DBIC::Test::SQLite';
+
__PACKAGE__->set_table('Movies');
__PACKAGE__->columns('Primary', 'Title');
__PACKAGE__->columns('Essential', qw( Title ));
package # hide from PAUSE
Lazy;
-use base 'DBIC::Test::SQLite';
+use warnings;
use strict;
+use base 'DBIC::Test::SQLite';
+
__PACKAGE__->set_table("Lazy");
__PACKAGE__->columns('Primary', qw(this));
__PACKAGE__->columns('Essential', qw(opop));
package # hide from PAUSE
Log;
+use warnings;
+use strict;
+
use base 'MyBase';
-use strict;
use Time::Piece::MySQL;
use POSIX;
package # hide from PAUSE
MyBase;
+use warnings;
use strict;
+
use DBI;
use lib 't/lib';
package # hide from PAUSE
MyFilm;
+use warnings;
+use strict;
+
use base 'MyBase';
use MyStarLink;
-use strict;
-
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/filmid title/);
__PACKAGE__->has_many(_stars => 'MyStarLink');
package # hide from PAUSE
MyFoo;
+use warnings;
+use strict;
+
use base 'MyBase';
use Date::Simple 3.03;
-use strict;
-
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/myid name val tdate/);
__PACKAGE__->has_a(
package # hide from PAUSE
MyStar;
-use base 'MyBase';
-
+use warnings;
use strict;
+use base 'MyBase';
+
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/starid name/);
__PACKAGE__->has_many(films => [ MyStarLink => 'film' ]);
package # hide from PAUSE
MyStarLink;
-use base 'MyBase';
-
+use warnings;
use strict;
+use base 'MyBase';
+
__PACKAGE__->set_table();
__PACKAGE__->columns(All => qw/linkid film star/);
__PACKAGE__->has_a(film => 'MyFilm');
package # hide from PAUSE
MyStarLinkMCPK;
+use warnings;
+use strict;
+
use base 'MyBase';
use MyStar;
use MyFilm;
-use strict;
-
# This is a many-to-many mapping table that uses the two foreign keys
# as its own primary key - there's no extra 'auto-inc' column here
package # hide from PAUSE
Order;
+use warnings;
use strict;
+
use base 'DBIC::Test::SQLite';
__PACKAGE__->set_table('orders');
package # hide from PAUSE
OtherFilm;
+use warnings;
use strict;
+
use base 'Film';
__PACKAGE__->set_table('Different_Film');
package OtherThing;
+
+use warnings;
+use strict;
+
use base 'DBIC::Test::SQLite';
OtherThing->set_table("other_thing");
package Thing;
+
+use warnings;
+use strict;
+
use base 'DBIC::Test::SQLite';
Thing->set_table("thing");
package DBICNSTest::Bogus::A;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('a');
__PACKAGE__->add_columns('a');
package DBICNSTest::Result::B;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('b');
__PACKAGE__->add_columns('b');
package DBICNSTest::Bogus::Bigos;
+use warnings;
+use strict;
+
+
1;
package DBICNSTest::OtherRslt::D;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('d');
__PACKAGE__->add_columns('d');
package DBICNSTest::RSBase;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::ResultSet/;
1;
package DBICNSTest::RSet::A;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::ResultSet/;
1;
package DBICNSTest::RSet::C;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::ResultSet/;
1;
package DBICNSTest::Result::A;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('a');
__PACKAGE__->add_columns('a');
package DBICNSTest::Result::B;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('b');
__PACKAGE__->add_columns('b');
package DBICNSTest::Result::D;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('d');
__PACKAGE__->add_columns('d');
package DBICNSTest::ResultSet::A;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::ResultSet/;
1;
package DBICNSTest::ResultSet::C;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::ResultSet/;
1;
package DBICNSTest::ResultSet::D;
+
+use warnings;
+use strict;
+
1;
package DBICNSTest::Rslt::A;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('a');
__PACKAGE__->add_columns('a');
package DBICNSTest::Rslt::B;
+
+use warnings;
+use strict;
+
use base qw/DBIx::Class::Core/;
__PACKAGE__->table('b');
__PACKAGE__->add_columns('b');
package # hide from PAUSE
DBICTest::ResultSetManager;
+
+use warnings;
+use strict;
+
use base 'DBICTest::BaseSchema';
__PACKAGE__->load_classes("Foo");
package # hide from PAUSE
DBICTest::ResultSetManager::Foo;
+
+use warnings;
+use strict;
+
use base 'DBIx::Class::Core';
__PACKAGE__->load_components(qw/ ResultSetManager /);
package # hide from PAUSE
DBICTest::Schema::Artist;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
use Carp qw/confess/;
package # hide from PAUSE
DBICTest::Schema::ArtistGUID;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
# test MSSQL uniqueidentifier type
package # hide from PAUSE
DBICTest::Schema::ArtistSourceName;
+use warnings;
+use strict;
+
use base 'DBICTest::Schema::Artist';
__PACKAGE__->table(__PACKAGE__->table);
__PACKAGE__->source_name('SourceNameArtists');
package # hide from PAUSE
DBICTest::Schema::ArtistSubclass;
+use warnings;
+use strict;
+
use base 'DBICTest::Schema::Artist';
__PACKAGE__->table(__PACKAGE__->table);
package # hide from PAUSE
DBICTest::Schema::ArtistUndirectedMap;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('artist_undirected_map');
package # hide from PAUSE
DBICTest::Schema::Artwork;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
use Carp qw/confess/;
package # hide from PAUSE
DBICTest::Schema::Artwork_to_Artist;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
use Carp qw/confess/;
package # hide from PAUSE
DBICTest::Schema::BindType;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('bindtype_test');
package # hide from PAUSE
DBICTest::Schema::Bookmark;
-use base qw/DBICTest::BaseResult/;
-
use strict;
use warnings;
+use base qw/DBICTest::BaseResult/;
+
__PACKAGE__->table('bookmark');
__PACKAGE__->add_columns(
'id' => {
package # hide from PAUSE
DBICTest::Schema::BooksInLibrary;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('books');
package # hide from PAUSE
DBICTest::Schema::CD;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
# this tests table name as scalar ref
package # hide from PAUSE
DBICTest::Schema::CD_to_Producer;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('cd_to_producer');
package # hide from PAUSE
DBICTest::Schema::Collection;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('collection');
package # hide from PAUSE
DBICTest::Schema::CollectionObject;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('collection_object');
# for sybase and mssql computed column tests
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('computed_column_test');
package # hide from PAUSE
DBICTest::Schema::CustomSql;
+use warnings;
+use strict;
+
use base qw/DBICTest::Schema::Artist/;
__PACKAGE__->table('dummy');
package # hide from PAUSE
DBICTest::Schema::Dummy;
-use base qw/DBICTest::BaseResult/;
-
use strict;
use warnings;
+use base qw/DBICTest::BaseResult/;
+
__PACKAGE__->table('dummy');
__PACKAGE__->add_columns(
'id' => {
package # hide from PAUSE
DBICTest::Schema::Employee;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->load_components(qw( Ordered ));
package # hide from PAUSE
DBICTest::Schema::Encoded;
-use base qw/DBICTest::BaseResult/;
-
use strict;
use warnings;
+use base qw/DBICTest::BaseResult/;
+
__PACKAGE__->table('encoded');
__PACKAGE__->add_columns(
'id' => {
use strict;
use warnings;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
use strict;
use warnings;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
use strict;
use warnings;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
use strict;
use warnings;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
use strict;
use warnings;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->load_components(qw/InflateColumn::DateTime/);
package # hide from PAUSE
DBICTest::Schema::ForceForeign;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('forceforeign');
package # hide from PAUSE
DBICTest::Schema::FourKeys;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('fourkeys');
package # hide from PAUSE
DBICTest::Schema::FourKeys_to_TwoKeys;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('fourkeys_to_twokeys');
package DBICTest::Schema::Genre;
+use warnings;
use strict;
use base qw/DBICTest::BaseResult/;
package # hide from PAUSE
DBICTest::Schema::Image;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('images');
package # hide from PAUSE
DBICTest::Schema::LinerNotes;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('liner_notes');
package # hide from PAUSE
DBICTest::Schema::Link;
-use base qw/DBICTest::BaseResult/;
-
use strict;
use warnings;
+use base qw/DBICTest::BaseResult/;
+
__PACKAGE__->table('link');
__PACKAGE__->add_columns(
'id' => {
package # hide from PAUSE
DBICTest::Schema::LyricVersion;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('lyric_versions');
package # hide from PAUSE
DBICTest::Schema::Lyrics;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('lyrics');
package # hide from PAUSE
DBICTest::Schema::Money;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('money_test');
package # hide from PAUSE
DBICTest::Schema::NoPrimaryKey;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('noprimarykey');
package DBICTest::Schema::NoSuchClass;
+use warnings;
+use strict;
+
## This is purposefully not a real DBIC class
## Used in t/102load_classes.t
package # hide from PAUSE
DBICTest::Schema::OneKey;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('onekey');
package # hide from PAUSE
DBICTest::Schema::Owners;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('owners');
package # hide from PAUSE
DBICTest::Schema::Producer;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('producer');
package # hide from PAUSE
DBICTest::Schema::PunctuatedColumnName;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('punctuated_column_name');
package # hide from PAUSE
DBICTest::Schema::SelfRef;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('self_ref');
package # hide from PAUSE
DBICTest::Schema::SelfRefAlias;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('self_ref_alias');
package # hide from PAUSE
DBICTest::Schema::SequenceTest;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('sequence_test');
package # hide from PAUSE
DBICTest::Schema::Serialized;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('serialized');
package # hide from PAUSE
DBICTest::Schema::Tag;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('tags');
package # hide from PAUSE
DBICTest::Schema::TimestampPrimaryKey;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('timestamp_primary_key_test');
package # hide from PAUSE
DBICTest::Schema::Track;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
use Carp qw/confess/;
package # hide from PAUSE
DBICTest::Schema::TreeLike;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('treelike');
package # hide from PAUSE
DBICTest::Schema::TwoKeyTreeLike;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('twokeytreelike');
package # hide from PAUSE
DBICTest::Schema::TwoKeys;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('twokeys');
package # hide from PAUSE
DBICTest::Schema::TypedObject;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table('typed_object');
package # hide from PAUSE
DBICTest::Schema::VaryingMAX;
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
# Test VARCHAR(MAX) type for MSSQL (used in ADO tests)
DBICTest::Schema::Year1999CDs;
## Used in 104view.t
+use warnings;
+use strict;
+
use base qw/DBICTest::BaseResult/;
__PACKAGE__->table_class('DBIx::Class::ResultSource::View');
package # hide from PAUSE
DBICTest::Schema::Year2000CDs;
+use warnings;
+use strict;
+
use base qw/DBICTest::Schema::CD/;
__PACKAGE__->table_class('DBIx::Class::ResultSource::View');
package DBICErrorTest::SyntaxError;
use strict;
+use warnings;
I'm a syntax error!
package # hide from PAUSE
DBICTest::Taint::Classes::Auto;
+use warnings;
+use strict;
+
use base 'DBIx::Class::Core';
__PACKAGE__->table('test');
package # hide from PAUSE
DBICTest::Taint::Classes::Manual;
+use warnings;
+use strict;
+
use base 'DBIx::Class::Core';
__PACKAGE__->table('test');
package # hide from PAUSE
DBICTest::Taint::Namespaces::Result::Test;
+use warnings;
+use strict;
+
use base 'DBIx::Class::Core';
__PACKAGE__->table('test');
package DBICTestAdminInc;
+
+use warnings;
+use strict;
+
use base 'DBICTest::BaseSchema';
sub connect { exit 70 } # this is what the test will expect to see
package DBICTestConfig;
+
+use warnings;
+use strict;
+
use base 'DBICTest::BaseSchema';
sub connect {
use warnings;
+use strict;
use Test::More;
use lib qw(t/lib);
use warnings;
+use strict;
use Test::More;
use lib qw(t/lib);
use warnings;
+use strict;
use Test::More;
use lib qw(t/lib);
--- /dev/null
+use warnings;
+use strict;
+
+use Test::More;
+use lib 't/lib';
+use DBICTest ':GlobalLock';
+
+unless ( DBIx::Class::Optional::Dependencies->req_ok_for ('test_strictures') ) {
+ my $missing = DBIx::Class::Optional::Dependencies->req_missing_for ('test_strictures');
+ $ENV{RELEASE_TESTING}
+ ? die ("Failed to load release-testing module requirements: $missing")
+ : plan skip_all => "Test needs: $missing"
+}
+
+
+use File::Find;
+
+find({
+ wanted => sub {
+ -f $_ or return;
+ m/\.(?: pm | pl | t )$ /ix or return;
+
+ return if m{^(?:
+ maint/Makefile.PL.inc/.+ # all the maint inc snippets are auto-strictured
+ |
+ lib/DBIx/Class/Admin/Types.pm # MooseX::Types undetected
+ |
+ lib/DBIx/Class/Storage/DBI/Replicated/Types.pm # MooseX::Types undetected
+ |
+ lib/DBIx/Class/Storage/BlockRunner.pm # Moo undetected
+ |
+ t/lib/DBICTest/Util/OverrideRequire.pm # no stictures by design (load order sensitive)
+ )$}x;
+
+ my $f = $_;
+
+ Test::Strict::strict_ok($f);
+ Test::Strict::warnings_ok($f);
+
+ #Test::Strict::syntax_ok($f) if $f =~ /^ (?: lib )/x;
+ },
+ no_chdir => 1,
+}, (qw(lib t examples maint)) );
+
+done_testing;
projects / dbsrgits/DBIx-Class.git / commitdiff