view release on metacpan or  search on metacpan

Slice.xs  view on Meta::CPAN

#include "ppport.h"

MODULE=List::Slice       PACKAGE=List::Slice

void
head(size,...)
PROTOTYPE: $@
ALIAS:
    head = 0
    tail = 1
PPCODE:
{
    int size = 0;
    int start = 0;
    int end = 0;
    int i = 0;

    size = SvIV( ST(0) );

    if ( ix == 0 ) {
        start = 1;