view release on metacpan or  search on metacpan

lib/Perlito5/XS/Emitter.pm  view on Meta::CPAN

        my $level = $_[1];
        
        my $name = '';
        #$name = $self->{namespace} . "::" . $self->{name} . " "
        $name = $self->{name} . " "
            if $self->{name};

        my $sig = $self->{sig};
        my $i = 0;
          'void ' . $name . "()\n"
        . "PPCODE:\n"
        .   join(";\n", map( Perlito5::XS::tab($level+1) . $_->emit_xs( $level + 1 ), @{$self->{block}} )) . ";\n"
    }
}

1;

=begin

=head1 NAME