| ################################################################################ |
| ## |
| ## $Revision: 9 $ |
| ## $Author: mhx $ |
| ## $Date: 2010/03/07 13:15:47 +0100 $ |
| ## |
| ################################################################################ |
| ## |
| ## Version 3.x, Copyright (C) 2004-2010, 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); |
| |