#!/usr/bin/perl use Test::More tests => 1; eval { package BuggyTable; use base 'DBIx::Class'; __PACKAGE__->load_components qw/Core/; __PACKAGE__->table('buggy_table'); __PACKAGE__->columns qw/this doesnt work as expected/; }; like($@,qr/\bcolumns\(\) is a read-only/, "columns() error when apparently misused");