/usr/lib/x86_64-linux-gnu/perl5/5.22/Goo/Canvas/Install/goocanvas.typemap is in libgoo-canvas-perl 0.06-2ubuntu1.
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 | GooCanvasBounds* T_PTROBJ_GENRIC
GArray* T_PTRREF
INPUT
T_PTROBJ_GENRIC
if (sv_isa($arg, \"${\(join('::', split(/(?=[A-Z])/, do{ (my $t = ${type}) =~ s/\s*[*]+$//; $t })))}\")) {
IV tmp = SvIV((SV*)SvRV($arg));
$var = INT2PTR($type,tmp);
}
else if ( !SvTRUE($arg) )
$var = NULL;
else
Perl_croak(aTHX_ \"$var is not of type ${\(join('::', split(/(?=[A-Z])/, do{ (my $t = ${type}) =~ s/\s*[*]+$//; $t })))}\");
OUTPUT
T_PTROBJ_GENRIC
sv_setref_pv($arg, \"${\(join('::', split(/(?=[A-Z])/, do{ (my $t = ${type}) =~ s/\s*[*]+$//; $t })))}\", (void*)$var);
|