/usr/lib/perl5/Devel/Cover/Dumper.pm is in libdevel-cover-perl 1.08-1ubuntu2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 | # This file is part of Devel::Cover.
# This software is free. It is licensed under the same terms as Perl itself.
# The latest version of this software should be available from my homepage:
# http://www.pjcj.net
# Author of this file: Olivier Mengué
package # Private module
Devel::Cover::Dumper;
use strict qw<vars subs>; # no refs
use warnings;
our $VERSION = '1.08'; # VERSION
sub import
{
my $caller = caller;
if (defined &{"${caller}::Dumper"} && \&{"${caller}::Dumper"} != \&Dumper) {
require Carp;
Carp::croak("Data::Dumper previously imported. " .
"Use Devel::Cover::Dumper instead.");
}
*{"${caller}::Dumper"} = \&Dumper;
}
sub Dumper
{
require Data::Dumper;
local $Data::Dumper::Indent = 1;
local $Data::Dumper::Sortkeys = 1;
Data::Dumper::Dumper(@_);
}
1
__END__
=encoding utf8
=head1 NAME
Devel::Cover::Dumper - Internal module for debugging purposes
=head1 VERSION
version 1.08
=head1 SYNOPSIS
use Devel::Cover::Dumper;
print Dumper $x;
=head1 DESCRIPTION
Wrapper around Data::Dumper::Dumper.
=head1 SEE ALSO
Devel::Cover
=head1 METHODS
=head1 BUGS
Huh?
=head1 LICENCE
Copyright 2012, Olivier Mengué
This software is free. It is licensed under the same terms as Perl itself.
The latest version of this software should be available from my homepage:
http://www.pjcj.net
=cut
|