Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
BHK.pm	260 B	-r--r--r--	2014-12-27 11:48
Block.pm	9 B	-r--r--r--	2014-12-27 11:48
Markers.pm	245 B	-r--r--r--	2014-12-27 11:48
Null.pm	3 B	-r--r--r--	2014-12-27 11:48
addissub.t	481 B	-r--r--r--	2014-12-27 11:48
arrayexpr.t	7.85 KB	-r--r--r--	2014-12-27 11:48
autoload.t	4.03 KB	-r--r--r--	2014-12-27 11:48
blockasexpr.t	1.46 KB	-r--r--r--	2014-12-27 11:48
blockhooks-csc.t	2.26 KB	-r--r--r--	2014-12-27 11:48
blockhooks.t	5.21 KB	-r--r--r--	2014-12-27 11:48
call.t	8.9 KB	-r--r--r--	2014-12-27 11:49
call_checker.t	4.03 KB	-r--r--r--	2014-12-27 11:49
caller.t	1.78 KB	-r--r--r--	2014-12-27 11:48
callregexec.t	2.46 KB	-r--r--r--	2014-12-27 11:49
check_warnings.t	495 B	-r--r--r--	2014-12-27 11:48
cleanup.t	1.41 KB	-r--r--r--	2014-12-27 11:48
clone-with-stack.t	1.45 KB	-r--r--r--	2015-01-10 12:06
cophh.t	280 B	-r--r--r--	2014-12-27 11:48
coplabel.t	112 B	-r--r--r--	2014-12-27 11:48
copstash.t	156 B	-r--r--r--	2014-12-27 11:48
copyhints.t	123 B	-r--r--r--	2014-12-27 11:48
customop.t	2.42 KB	-r--r--r--	2014-12-27 11:49
eval-filter.t	743 B	-r--r--r--	2014-12-27 11:48
exception.t	616 B	-r--r--r--	2014-12-27 11:48
fetch_pad_names.t	10.58 KB	-r--r--r--	2014-12-27 11:49
gotosub.t	351 B	-r--r--r--	2014-12-27 11:48
grok.t	2.07 KB	-r--r--r--	2014-12-27 11:49
gv_autoload4.t	2.01 KB	-r--r--r--	2014-12-27 11:48
gv_fetchmeth.t	2.3 KB	-r--r--r--	2014-12-27 11:48
gv_fetchmeth_autoload.t	3.38 KB	-r--r--r--	2014-12-27 11:48
gv_fetchmethod_flags.t	1.86 KB	-r--r--r--	2014-12-27 11:48
gv_init.t	489 B	-r--r--r--	2014-12-27 11:48
handy.t	15.33 KB	-r--r--r--	2014-12-27 11:49
hash.t	17.07 KB	-r--r--r--	2014-12-27 11:48
keyword_multiline.t	259 B	-r--r--r--	2014-12-27 11:48
keyword_plugin.t	1.15 KB	-r--r--r--	2014-12-27 11:48
labelconst.aux	146 B	-r--r--r--	2014-12-27 11:48
labelconst.t	2.63 KB	-r--r--r--	2014-12-27 11:48
labelconst_utf8.aux	194 B	-r--r--r--	2014-12-27 11:48
lexsub.t	524 B	-r--r--r--	2014-12-27 11:48
loopblock.t	1.46 KB	-r--r--r--	2014-12-27 11:48
looprest.t	1.39 KB	-r--r--r--	2014-12-27 11:48
lvalue.t	800 B	-r--r--r--	2014-12-27 11:48
magic.t	804 B	-r--r--r--	2014-12-27 11:49
magic_chain.t	115 B	-r--r--r--	2014-12-27 11:48
mro.t	237 B	-r--r--r--	2014-12-27 11:48
multicall.t	1.32 KB	-r--r--r--	2014-12-27 11:48
my_cxt.t	1.28 KB	-r--r--r--	2014-12-27 11:48
my_exit.t	790 B	-r--r--r--	2014-12-27 11:48
newCONSTSUB.t	2.58 KB	-r--r--r--	2014-12-27 11:48
op.t	359 B	-r--r--r--	2014-12-27 11:48
op_contextualize.t	120 B	-r--r--r--	2014-12-27 11:48
op_list.t	151 B	-r--r--r--	2014-12-27 11:48
overload.t	2.21 KB	-r--r--r--	2014-12-27 11:48
pad_scalar.t	1.83 KB	-r--r--r--	2014-12-27 11:48
peep.t	1013 B	-r--r--r--	2014-12-27 11:48
pmflag.t	192 B	-r--r--r--	2014-12-27 11:48
postinc.t	800 B	-r--r--r--	2014-12-27 11:48
printf.t	1.05 KB	-r--r--r--	2014-12-27 11:49
ptr_table.t	916 B	-r--r--r--	2014-12-27 11:48
push.t	746 B	-r--r--r--	2014-12-27 11:48
refs.t	578 B	-r--r--r--	2014-12-27 11:48
rmagical.t	823 B	-r--r--r--	2014-12-27 11:48
rv2cv_op_cv.t	115 B	-r--r--r--	2014-12-27 11:48
savehints.t	123 B	-r--r--r--	2014-12-27 11:48
scopelessblock.t	1.59 KB	-r--r--r--	2014-12-27 11:48
sort.t	411 B	-r--r--r--	2014-12-27 11:48
stmtasexpr.t	893 B	-r--r--r--	2014-12-27 11:48
stmtsasexpr.t	949 B	-r--r--r--	2014-12-27 11:48
stuff_modify_bug.t	151 B	-r--r--r--	2014-12-27 11:48
stuff_svcur_bug.t	260 B	-r--r--r--	2014-12-27 11:48
subcall.t	179 B	-r--r--r--	2014-12-27 11:48
sviscow.t	229 B	-r--r--r--	2014-12-27 11:48
svpeek.t	3.16 KB	-r--r--r--	2014-12-27 11:49
svpv.t	1.01 KB	-r--r--r--	2014-12-27 11:48
svpv_magic.t	1.29 KB	-r--r--r--	2014-12-27 11:48
svsetsv.t	1015 B	-r--r--r--	2014-12-27 11:48
swaplabel.t	7.06 KB	-r--r--r--	2014-12-27 11:48
swaptwostmts.t	2.79 KB	-r--r--r--	2014-12-27 11:48
sym-hook.t	730 B	-r--r--r--	2014-12-27 11:48
temp_lv_sub.t	532 B	-r--r--r--	2014-12-27 11:48
underscore_length.t	338 B	-r--r--r--	2014-12-27 11:48
utf16_to_utf8.t	2.09 KB	-r--r--r--	2014-12-27 11:48
utf8.t	13.46 KB	-r--r--r--	2014-12-27 11:48
whichsig.t	653 B	-r--r--r--	2014-12-27 11:48
xs_special_subs.t	6.54 KB	-r--r--r--	2014-12-27 11:48
xs_special_subs_require.t	7.46 KB	-r--r--r--	2014-12-27 11:48
xsub_h.t	2.81 KB	-r--r--r--	2014-12-27 11:48

Rename

#!perl

# This script tests not only the interface for XS AUTOLOAD routines to find
# out the sub name, but also that that interface does not interfere with
# prototypes, the way it did before 5.15.4.

use strict;
use warnings;

use Test::More tests => 26;

use XS::APItest;

is XS::APItest::AutoLoader::frob(), 'frob', 'name passed to XS AUTOLOAD';
is "XS::APItest::AutoLoader::fr\0b"->(), "fr\0b",
  'name with embedded null passed to XS AUTOLOAD';
is "XS::APItest::AutoLoader::fr\x{1ed9}b"->(), "fr\x{1ed9}b",
  'Unicode name passed to XS AUTOLOAD';

*AUTOLOAD = *XS::APItest::AutoLoader::AUTOLOADp;

is frob(), 'frob', 'name passed to XS AUTOLOAD with proto';
is prototype \&AUTOLOAD, '*$', 'prototype is unchanged';
is "fr\0b"->(), "fr\0b",
  'name with embedded null passed to XS AUTOLOAD with proto';
is prototype \&AUTOLOAD, '*$', 'proto unchanged after embedded-null call';
is "fr\x{1ed9}b"->(), "fr\x{1ed9}b",
  'Unicode name passed to XS AUTOLOAD with proto';
is prototype \&AUTOLOAD, '*$', 'prototype is unchanged after Unicode call';

# Test that the prototype was preserved from the parser’s point of view

ok !eval "sub { ::AUTOLOAD(1) }",
   'parse failure due to AUTOLOAD prototype';
ok eval "sub { ::AUTOLOAD(1,2) }", 'successful parse respecting prototype'
  or diag $@;

package fribble { sub a { return 7 } }
no warnings 'once';
*a = \&AUTOLOAD;
'$'->();
# &a('fribble') will return '$'
# But if intuit_method does not see the (*...) proto, this compiles as
# fribble->a
no strict;
is eval 'a fribble, 3', '$', 'intuit_method sees * in AUTOLOAD proto'
  or diag $@;

# precedence check
# *$ should parse as a list operator, but right now the AUTOLOAD
# sub name is $
is join(" ", eval 'a "b", "c"'), '$',
   'precedence determination respects prototype of AUTOLOAD sub';

{
    my $w;
    local $SIG{__WARN__} = sub { $w .= shift };
    eval 'sub a($){}';
    like $w, qr/^Prototype mismatch: sub main::a $\*\$$ vs $\$$/m,
        'proto warnings respect AUTOLOAD prototypes';
    undef $w;
    *a = \&AUTOLOAD;
    like $w, qr/^Prototype mismatch: sub main::a $\$$ vs $\*\$$/m,
        'GV assignment proto warnings respect AUTOLOAD prototypes';
}

#
# This is a test for AUTOLOAD implemented as an XSUB.
# It tests that $AUTOLOAD is set correctly, including the
# case of inheritance.
#
# Rationale: Due to change ed850460, $AUTOLOAD is not currently set
# for XSUB AUTOLOADs at all.  Instead, as of adb5a9ae the PV of the
# AUTOLOAD XSUB is set to the name of the method. We cruelly test it
# regardless.
#

# First, make sure we have the XS AUTOLOAD available for testing
ok(XS::APItest::AUTOLOADtest->can('AUTOLOAD'), 'Test class ->can AUTOLOAD');

# Used to communicate from the XS AUTOLOAD to Perl land
use vars '$the_method';

# First, set up the Perl equivalent to what we're testing in
# XS so we have a comparison
package PerlBase;
use vars '$AUTOLOAD';
sub AUTOLOAD {
  Test::More::ok(defined $AUTOLOAD);
  return 1 if not defined $AUTOLOAD;
  $main::the_method = $AUTOLOAD;
  return 0;
}

package PerlDerived;
use vars '@ISA';
@ISA = qw(PerlBase);

package Derived;
use vars '@ISA';
@ISA = qw(XS::APItest::AUTOLOADtest);

package main;

# Test Perl AUTOLOAD in base class directly
$the_method = undef;
is(PerlBase->Blah(), 0,
   "Perl AUTOLOAD gets called and returns success");
is($the_method, 'PerlBase::Blah',
   'Scalar set to correct class/method name');

# Test Perl AUTOLOAD in derived class
$the_method = undef;
is(PerlDerived->Boo(), 0,
   'Perl AUTOLOAD on derived class gets called and returns success');
is($the_method, 'PerlDerived::Boo',
   'Scalar set to correct class/method name');

# Test XS AUTOLOAD in base class directly
$the_method = undef;
is(XS::APItest::AUTOLOADtest->Blah(), 0,
     'XS AUTOLOAD gets called and returns success');
is($the_method, 'XS::APItest::AUTOLOADtest::Blah',
     'Scalar set to correct class/method name');

# Test XS AUTOLOAD in derived class directly
$the_method = undef;
is(Derived->Foo(), 0,
     'XS AUTOLOAD gets called and returns success');
is($the_method, 'Derived::Foo',
     'Scalar set to correct class/method name');