package Devel::PL_origargv;
use strict;
use warnings;
our $AUTHORITY = 'cpan:TOBYINK';
our $VERSION   = '0.004';

require DynaLoader;
@Devel::PL_origargv::ISA = qw( Exporter DynaLoader);
bootstrap Devel::PL_origargv;

sub get {
    return _my_argc() unless wantarray;
    map _my_argv($_), 1 .. _my_argc();
}

1;
[download]

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

MODULE = Devel::PL_origargv    PACKAGE = Devel::PL_origargv    

PROTOTYPES: DISABLE

int
_my_argc ()
CODE:
    RETVAL = PL_origargc;
OUTPUT:
    RETVAL

char *
_my_argv (x)
    int    x
CODE:
    RETVAL = PL_origargv[x - 1];
OUTPUT:
    RETVAL
[download]