1 ################################################################################
5 ## $Date: 2009/01/18 14:10:54 +0100 $
7 ################################################################################
9 ## Version 3.x, Copyright (C) 2004-2009, Marcus Holland-Moritz.
10 ## Version 2.x, Copyright (C) 2001, Paul Marquess.
11 ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
13 ## This program is free software; you can redistribute it and/or
14 ## modify it under the same terms as Perl itself.
16 ################################################################################
26 __UNDEFINED__ CopFILE(c) ((c)->cop_file)
27 __UNDEFINED__ CopFILEGV(c) (CopFILE(c) ? gv_fetchfile(CopFILE(c)) : Nullgv)
28 __UNDEFINED__ CopFILE_set(c,pv) ((c)->cop_file = savepv(pv))
29 __UNDEFINED__ CopFILESV(c) (CopFILE(c) ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
30 __UNDEFINED__ CopFILEAV(c) (CopFILE(c) ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
31 __UNDEFINED__ CopSTASHPV(c) ((c)->cop_stashpv)
32 __UNDEFINED__ CopSTASHPV_set(c,pv) ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
33 __UNDEFINED__ CopSTASH(c) (CopSTASHPV(c) ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
34 __UNDEFINED__ CopSTASH_set(c,hv) CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
35 __UNDEFINED__ CopSTASH_eq(c,hv) ((hv) && (CopSTASHPV(c) == HvNAME(hv) \
36 || (CopSTASHPV(c) && HvNAME(hv) \
37 && strEQ(CopSTASHPV(c), HvNAME(hv)))))
41 __UNDEFINED__ CopFILEGV(c) ((c)->cop_filegv)
42 __UNDEFINED__ CopFILEGV_set(c,gv) ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
43 __UNDEFINED__ CopFILE_set(c,pv) CopFILEGV_set((c), gv_fetchfile(pv))
44 __UNDEFINED__ CopFILESV(c) (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
45 __UNDEFINED__ CopFILEAV(c) (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
46 __UNDEFINED__ CopFILE(c) (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
47 __UNDEFINED__ CopSTASH(c) ((c)->cop_stash)
48 __UNDEFINED__ CopSTASH_set(c,hv) ((c)->cop_stash = (hv))
49 __UNDEFINED__ CopSTASHPV(c) (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
50 __UNDEFINED__ CopSTASHPV_set(c,pv) CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
51 __UNDEFINED__ CopSTASH_eq(c,hv) (CopSTASH(c) == (hv))
53 #endif /* USE_ITHREADS */
60 RETVAL = CopSTASHPV(PL_curcop);
67 RETVAL = CopFILE(PL_curcop);
76 $package = &Devel::PPPort::CopSTASHPV();
79 ok($package, "MyPackage");
81 my $file = &Devel::PPPort::CopFILE();