for ($add_meth, $remove_meth, $set_meth, $rs_meth) {
if ( $class->can ($_) ) {
- carp (<<"EOW") unless $ENV{DBIC_METHOD_CLOBBER_OK};
+ carp (<<"EOW") unless $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK};
***************************************************************************
The many-to-many relationship '$meth' is trying to create a utility method
relationship, as the functionality of the original method will not be
accessible anymore.
-To disable this warning set the environment variable DBIC_METHOD_CLOBBER_OK
-to a true value
+To disable this warning set to a true value the environment variable
+DBIC_OVERWRITE_HELPER_METHODS_OK
***************************************************************************
EOW
ok (! $@, 'Eval code without warnings suppression')
|| diag $@;
- ok (@w, "Warning triggered without DBIC_METHOD_CLOBBER_OK");
+ ok (@w, "Warning triggered without DBIC_OVERWRITE_HELPER_METHODS_OK");
}
{
my $code = gen_code ( suffix => 2 );
- local $ENV{DBIC_METHOD_CLOBBER_OK} = 1;
+ local $ENV{DBIC_OVERWRITE_HELPER_METHODS_OK} = 1;
eval "$code";
ok (! $@, 'Eval code with warnings suppression')
|| diag $@;
- ok (! @w, "No warning triggered with DBIC_METHOD_CLOBBER_OK");
+ ok (! @w, "No warning triggered with DBIC_OVERWRITE_HELPER_METHODS_OK");
}
sub gen_code {