ASSERT_NO_INTERNAL_WANTARRAY => $ENV{DBIC_ASSERT_NO_INTERNAL_WANTARRAY} ? 1 : 0,
IV_SIZE => $Config{ivsize},
+
+ OS_NAME => $^O,
};
if ($] < 5.009_005) {
use Scalar::Util qw(refaddr weaken);
use base 'Exporter';
-our @EXPORT_OK = qw(sigwarn_silencer modver_gt_or_eq fail_on_internal_wantarray);
+our @EXPORT_OK = qw(sigwarn_silencer modver_gt_or_eq fail_on_internal_wantarray refcount);
sub sigwarn_silencer {
my $pattern = shift;
return sub { &$orig_sig_warn unless $_[0] =~ $pattern };
}
+sub refcount {
+ croak "Expecting a reference" if ! length ref $_[0];
+
+ require B;
+ # No tempvars - must operate on $_[0], otherwise the pad
+ # will count as an extra ref
+ B::svref_2object($_[0])->REFCNT;
+}
+
sub modver_gt_or_eq {
my ($mod, $ver) = @_;