This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Better error checking/handling
authorSteffen Mueller <smueller@cpan.org>
Sat, 19 Feb 2011 13:01:48 +0000 (14:01 +0100)
committerSteffen Mueller <smueller@cpan.org>
Tue, 12 Jul 2011 18:54:50 +0000 (20:54 +0200)
dist/ExtUtils-ParseXS/lib/ExtUtils/Typemaps.pm

index 9755293..9bb5307 100644 (file)
@@ -433,6 +433,8 @@ object for the entry if found.
 
 sub get_typemap {
   my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
   my %args = @_;
   my $ctype = $args{ctype};
   die("Need ctype argument") if not defined $ctype;
@@ -465,6 +467,8 @@ object for the entry if found.
 
 sub get_inputmap {
   my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
   my %args = @_;
   my $xstype = $args{xstype};
   my $ctype  = $args{ctype};
@@ -475,7 +479,9 @@ sub get_inputmap {
     if defined $xstype and defined $ctype;
 
   if (defined $ctype) {
-    $xstype = $self->get_typemap(ctype => $ctype)->xstype;
+    my $tm = $self->get_typemap(ctype => $ctype);
+    $xstype = $tm && $tm->xstype;
+    return() if not defined $xstype;
   }
 
   my $index = $self->{input_lookup}{$xstype};
@@ -499,6 +505,8 @@ object for the entry if found.
 
 sub get_outputmap {
   my $self = shift;
+  die("Need named parameters, got uneven number") if @_ % 2;
+
   my %args = @_;
   my $xstype = $args{xstype};
   my $ctype  = $args{ctype};
@@ -509,7 +517,9 @@ sub get_outputmap {
     if defined $xstype and defined $ctype;
 
   if (defined $ctype) {
-    $xstype = $self->get_typemap(ctype => $ctype)->xstype;
+    my $tm = $self->get_typemap(ctype => $ctype);
+    $xstype = $tm && $tm->xstype;
+    return() if not defined $xstype;
   }
 
   my $index = $self->{output_lookup}{$xstype};