File Coverage

lib/ExtUtils/Typemaps/Default.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	1	1	100.0
total	20	20	100.0

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 is an C
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, L,
L

=head1 METHODS

These are the overridden methods:

=head2 new

Creates a new C 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__