File Coverage

blib/lib/ExtUtils/Typemaps/Excommunicated.pm

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

package ExtUtils::Typemaps::Excommunicated;

use strict;
use warnings;
use ExtUtils::Typemaps;

our $VERSION = '0.01';
our @ISA = qw(ExtUtils::Typemaps);

=head1 NAME

ExtUtils::Typemaps::Excommunicated - Typemaps that have been removed from the core

=head1 SYNOPSIS

To use one or more of the typemaps from this module in a CPAN
distribution, add a built-time dependency on this module, and
include the following line in your XS code:

  INCLUDE_COMMAND: $^X -MExtUtils::Typemaps::Cmd \
                   -e "print embeddable_typemap(q{Excommunicated})"

=head1 DESCRIPTION

C is an C
subclass that provides typemaps that have been booted from the perl
core. They might have been removed from the core for various reasons,
but we're really honest, it's really because their addition points back
at perl 5.0 and nobody knows what the hell they were intended for.

Right now, this means the following typemaps:

  T_DATAUNIT (OUTPUT only)

  T_CALLBACK

=cut

sub new {
  my $class = shift;

  my $self = $class->SUPER::new(@_);
  $self->add_string(string => <<'END_OF_TYPEMAP');
INPUT
T_CALLBACK
        $var = make_perl_cb_$type($arg)

OUTPUT

T_DATAUNIT
	sv_setpvn($arg, $var.chp(), $var.size());

T_CALLBACK
        sv_setpvn($arg, $var.context.value().chp(),
                        $var.context.value().size());
END_OF_TYPEMAP

  return $self;
}

1;

__END__