| Current Path : /usr/share/doc/perl-DBIx-Class/t/resultsource/ |
| Current File : //usr/share/doc/perl-DBIx-Class/t/resultsource/bare_resultclass_exception.t |
use strict;
use warnings;
use Test::More;
use Test::Exception;
use lib 't/lib';
use DBICTest;
{
package DBICTest::Foo;
use base "DBIx::Class::Core";
}
throws_ok { DBICTest::Foo->new("urgh") } qr/must be a hashref/;
done_testing;