package WarnOver;
use strict;
use warnings;

package UNIVERSAL;
use Scalar::Util 'refaddr';
use Carp;
use overload
    q{0+} => sub { 
        carp "numifying reference " . overload::StrVal($_[0]); 
        refaddr $_[0];
    },
    q{""} => sub { 
        carp "stringifying reference " . overload::StrVal($_[0]);
        overload::StrVal($_[0]); 
    },
    fallback => 1;
;
1;