Select Code to Download

substr($s, $pos, $len) = $x;

substr($s, $pos, $len, $x);

int
Perl_magic_getsubstr(pTHX_ SV *sv, MAGIC *mg)
...
    I32 lvlen = LvTARGLEN(sv);
    ...
}

sub xs_func1 :lvalue;
sub xs_func2 :lvalue;

use attributes ();
for (qw( xs_func1 xs_func2 )) {
    no strict 'refs';
    attributes->import(__PACKAGE__, \&{$_}, 'lvalue');
}

my $mmap = $class->new( ..., endianess => ENDIAN_NATIVE );

++( $mmap->uint8(0x1234) );