File Coverage

blib/lib/ExtUtils/Typemaps/Slurp.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 20 65.0


line stmt bran cond sub pod time code
1             package ExtUtils::Typemaps::Slurp;
2             $ExtUtils::Typemaps::Slurp::VERSION = '0.004';
3 2     2   191278 use strict;
  2         5  
  2         80  
4 2     2   16 use warnings;
  2         7  
  2         142  
5              
6 2     2   20 use parent 'ExtUtils::Typemaps';
  2         22  
  2         16  
7              
8             sub new {
9 0     0 1   my $class = shift;
10              
11 0           my $self = $class->SUPER::new(@_);
12              
13 0           $self->add_inputmap(xstype => 'T_SLURP_VAL', code => ' $var = ${ntype}_gather(&ST($argoff), items - $argoff)');
14 0           $self->add_inputmap(xstype => 'T_SLURP_VAR', code => ' ${ntype}_gather(&$var, &ST($argoff), items - $argoff)');
15 0           $self->add_inputmap(xstype => 'T_SLURP_AV', code => ' $var = av_make(items - $argoff, &ST($argoff))');
16            
17 0           return $self;
18             }
19              
20             1;
21              
22             # ABSTRACT: Typemap for slurping arguments
23              
24             __END__