/usr/share/perl5/ExtUtils/Typemaps/Default.pm is in libextutils-typemaps-default-perl 1.05-2.
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 82 83 84 85 86 87 | package ExtUtils::Typemaps::Default;
use strict;
use warnings;
use ExtUtils::Typemaps;
our $VERSION = '1.05';
our @ISA = qw(ExtUtils::Typemaps);
require ExtUtils::Typemaps::ObjectMap;
require ExtUtils::Typemaps::Basic;
require ExtUtils::Typemaps::STL;
=head1 NAME
ExtUtils::Typemaps::Default - A set of useful typemaps
=head1 SYNOPSIS
use ExtUtils::Typemaps::Default;
# First, read my own type maps:
my $private_map = ExtUtils::Typemaps->new(file => 'my.map');
# Then, get the default set and merge it into my maps
my $map = ExtUtils::Typemaps::Default->new;
$private_map->merge(typemap => $map);
# Now, write the combined map to an output file
$private_map->write(file => 'typemap');
=head1 DESCRIPTION
C<ExtUtils::Typemaps::Default> is an C<ExtUtils::Typemaps>
subclass that provides a set of default mappings (in addition to what
perl itself provides). These default mappings are currently defined
as the combination of the mappings provided by the
following typemap classes which are provided in this distribution:
L<ExtUtils::Typemaps::ObjectMap>, L<ExtUtils::Typemaps::STL>,
L<ExtUtils::Typemaps::Basic>
=head1 METHODS
These are the overridden methods:
=head2 new
Creates a new C<ExtUtils::Typemaps::Default> object.
=cut
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->merge(typemap => ExtUtils::Typemaps::Basic->new);
$self->merge(typemap => ExtUtils::Typemaps::ObjectMap->new);
$self->merge(typemap => ExtUtils::Typemaps::STL->new);
return $self;
}
1;
__END__
=head1 SEE ALSO
L<ExtUtils::Typemaps>,
L<ExtUtils::Typemaps::ObjectMap>,
L<ExtUtils::Typemaps::STL>,
L<ExtUtils::Typemaps::Basic>
=head1 AUTHOR
Steffen Mueller <smueller@cpan.org>
=head1 COPYRIGHT AND LICENSE
Copyright 2010, 2011, 2012, 2013 by Steffen Mueller
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut
|