/usr/share/perl5/Package/New/Dump.pm is in libpackage-new-perl 0.07-1.
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 81 | package Package::New::Dump;
use base qw{Package::New};
use strict;
use warnings;
our $VERSION='0.06';
=head1 NAME
Package::New::Dump - Simple base package from which to inherit
=head1 SYNOPSIS
package My::Package;
use base qw{Package::New::Dump}; #provides new, initialize and dump
=head1 DESCRIPTION
The Package::New::Dump object provides a consistent object constructor for objects.
=head1 RECOMMENDATIONS
I recommend using this package only during development and reverting back to L<Package::New> when in full production
=head1 USAGE
=head1 CONSTRUCTOR
See L<Package::New>
=cut
=head1 METHODS
=head2 dump
Returns the object serialized by L<Data::Dumper>
=cut
sub dump {
my $self=shift();
eval 'use Data::Dumper qw{}';
if ($@) {
return wantarray ? () : '';
} else {
my $depth=shift; $depth=2 unless defined $depth;
my $d=Data::Dumper->new([$self]);
$d->Maxdepth($depth);
return $d->Dump;
}
}
=head1 BUGS
Log on RT and contact the author.
=head1 SUPPORT
DavisNetworks.com provides support services for all Perl applications including this package.
=head1 AUTHOR
Michael R. Davis
CPAN ID: MRDVT
DavisNetworks.com
http://www.DavisNetworks.com/
=head1 COPYRIGHT
This program is free software licensed under the...
The BSD License
The full text of the license can be found in the LICENSE file included with this module.
=head1 SEE ALSO
=cut
1;
|