#!/usr/bin/perl
use strict;
use warnings;
use Test::More;
use Test::Warn;
use DBIx::Class::Carp;
use lib 't/lib';
use DBICTest;
warnings_exist {
DBIx::Class::frobnicate();
} [
qr/carp1/,
qr/carp2/,
], 'expected warnings from carp_once';
done_testing;
sub DBIx::Class::frobnicate {
DBIx::Class::branch1();
DBIx::Class::branch2();
}
sub DBIx::Class::branch1 { carp_once 'carp1' }
sub DBIx::Class::branch2 { carp_once 'carp2' }