BEGIN {
eval "use DBIx::Class::CDBICompat;";
- plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@")
- : ('no_plan');
+ plan skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@" if $@;
}
use lib 't/cdbi/testlib';
my $rating = $waves->{rating};
$waves->Rating("PG");
is $rating, "R", 'evaluation of column value is not deferred';
- } qr{^Column 'rating' of 'Film/$waves' was fetched as a hash at \Q$0};
+ } qr{^Column 'rating' of 'Film/$waves' was fetched as a hash at\b};
warnings_like {
is $waves->{title}, $waves->Title, "columns can be accessed as hashes";
isa_ok $foo->{tdate}, 'Date::Simple';
is $foo->{tdate}->year, 1949;
-}
\ No newline at end of file
+}
+
+done_testing;