# Count times "Data::Dumper::import" is called, e.g. via use
BEGIN {
    no warnings 'redefine';

    require Data::Dumper;

    # initialize the counter
    my $dumper_counter = 0;
    
    # save the original import sub before replacing it
    my $dumper_import = *Data::Dumper::import{CODE};

    # install import wrapper with closures
    *Data::Dumper::import = sub { 
        $dumper_counter++;
        $dumper_import->(@_);    
    };
}