use strict;
use warnings;
+use Carp::Clan qw/^DBIx::Class/;
+
=head1 NAME
DBIx::Class::AccessorGroup - Lets you build groups of accessors
foreach my $field (@fields) {
if( $field eq 'DESTROY' ) {
- require Carp;
- &Carp::carp("Having a data accessor named DESTROY in ".
+ carp("Having a data accessor named DESTROY in ".
"'$class' is unwise.");
}
if(@_) {
my $caller = caller;
- require Carp;
- Carp::croak("'$caller' cannot alter the value of '$field' on ".
+ croak("'$caller' cannot alter the value of '$field' on ".
"objects of class '$class'");
}
else {
unless (@_) {
my $caller = caller;
require Carp;
- Carp::croak("'$caller' cannot access the value of '$field' on ".
+ croak("'$caller' cannot access the value of '$field' on ".
"objects of class '$class'");
}
else {