Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
HvNAME	961 B	-r--r--r--	2014-12-27 11:48
MY_CXT	5.02 KB	-r--r--r--	2014-12-27 11:48
SvPV	14.47 KB	-r--r--r--	2014-12-27 11:49
SvREFCNT	3.78 KB	-r--r--r--	2014-12-27 11:48
Sv_set	2.93 KB	-r--r--r--	2014-12-27 11:48
call	9.12 KB	-r--r--r--	2014-12-27 11:49
cop	2.76 KB	-r--r--r--	2014-12-27 11:49
exception	1.66 KB	-r--r--r--	2014-12-27 11:48
format	1.56 KB	-r--r--r--	2014-12-27 11:48
grok	20.45 KB	-r--r--r--	2014-12-27 11:49
gv	2.8 KB	-r--r--r--	2014-12-27 11:48
limits	7.25 KB	-r--r--r--	2014-12-27 11:48
mPUSH	3.27 KB	-r--r--r--	2014-12-27 11:48
magic	10.14 KB	-r--r--r--	2014-12-27 11:49
memory	2.24 KB	-r--r--r--	2014-12-27 11:48
misc	13.64 KB	-r--r--r--	2014-12-27 11:49
newCONSTSUB	2.54 KB	-r--r--r--	2014-12-27 11:48
newRV	1.4 KB	-r--r--r--	2014-12-27 11:48
newSV_type	1.61 KB	-r--r--r--	2014-12-27 11:48
newSVpv	2.53 KB	-r--r--r--	2014-12-27 11:48
podtest	1.07 KB	-r--r--r--	2014-12-27 11:48
ppphbin	20.5 KB	-r--r--r--	2014-12-27 11:48
ppphdoc	9.64 KB	-r--r--r--	2014-12-27 11:49
ppphtest	21.33 KB	-r--r--r--	2014-12-27 11:49
pv_tools	8.35 KB	-r--r--r--	2014-12-27 11:49
pvs	4.3 KB	-r--r--r--	2014-12-27 11:48
shared_pv	2.14 KB	-r--r--r--	2014-12-27 11:48
snprintf	1.39 KB	-r--r--r--	2014-12-27 11:48
sprintf	1.12 KB	-r--r--r--	2014-12-27 11:48
strlfuncs	2.47 KB	-r--r--r--	2014-12-27 11:48
sv_xpvf	6.98 KB	-r--r--r--	2014-12-27 11:48
threads	1.34 KB	-r--r--r--	2014-12-27 11:48
uv	3.21 KB	-r--r--r--	2014-12-27 11:48
variables	13.2 KB	-r--r--r--	2014-12-27 11:49
version	1.56 KB	-r--r--r--	2014-12-27 11:48
warn	4.36 KB	-r--r--r--	2014-12-27 11:48

Rename

################################################################################
##
##  Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
##  Version 2.x, Copyright (C) 2001, Paul Marquess.
##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
##
##  This program is free software; you can redistribute it and/or
##  modify it under the same terms as Perl itself.
##
################################################################################

=provides

__UNDEFINED__

=implementation

#ifdef USE_ITHREADS

__UNDEFINED__  CopFILE(c)               ((c)->cop_file)
__UNDEFINED__  CopFILEGV(c)             (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
__UNDEFINED__  CopFILE_set(c,pv)        ((c)->cop_file = savepv(pv))
__UNDEFINED__  CopFILESV(c)             (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
__UNDEFINED__  CopFILEAV(c)             (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
__UNDEFINED__  CopSTASHPV(c)            ((c)->cop_stashpv)
__UNDEFINED__  CopSTASHPV_set(c,pv)     ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
__UNDEFINED__  CopSTASH(c)              (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
__UNDEFINED__  CopSTASH_set(c,hv)       CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
__UNDEFINED__  CopSTASH_eq(c,hv)        ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
                                        || (CopSTASHPV(c) && HvNAME(hv) \
                                        && strEQ(CopSTASHPV(c), HvNAME(hv)))))

#else

__UNDEFINED__  CopFILEGV(c)             ((c)->cop_filegv)
__UNDEFINED__  CopFILEGV_set(c,gv)      ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
__UNDEFINED__  CopFILE_set(c,pv)        CopFILEGV_set((c), gv_fetchfile(pv))
__UNDEFINED__  CopFILESV(c)             (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
__UNDEFINED__  CopFILEAV(c)             (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
__UNDEFINED__  CopFILE(c)               (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
__UNDEFINED__  CopSTASH(c)              ((c)->cop_stash)
__UNDEFINED__  CopSTASH_set(c,hv)       ((c)->cop_stash = (hv))
__UNDEFINED__  CopSTASHPV(c)            (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
__UNDEFINED__  CopSTASHPV_set(c,pv)     CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
__UNDEFINED__  CopSTASH_eq(c,hv)        (CopSTASH(c) == (hv))

#endif /* USE_ITHREADS */

=xsubs

char *
CopSTASHPV()
        CODE:
                RETVAL = CopSTASHPV(PL_curcop);
        OUTPUT:
                RETVAL

char *
CopFILE()
        CODE:
                RETVAL = CopFILE(PL_curcop);
        OUTPUT:
                RETVAL

=tests plan => 2

my $package;
{
  package MyPackage;
  $package = &Devel::PPPort::CopSTASHPV();
}
print "# $package\n";
ok($package, "MyPackage");

my $file = &Devel::PPPort::CopFILE();
print "# $file\n";
ok($file =~ /cop/i);