view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

9459
9460
9461
9462
9463
9464
9465
9466
9467
9468
9469
9470
9471
9472
9473
9474
9475
9476
9477
9478
9479
9480
sv_resetpvn|5.017005||Viu
SvRMAGICAL|5.003007||Viu
SvRMAGICAL_off|5.003007||Viu
SvRMAGICAL_on|5.003007||Viu
SvROK|5.003007|5.003007|
SvROK_off|5.003007|5.003007|
SvROK_on|5.003007|5.003007|
SvRV|5.003007|5.003007|
SvRV_const|5.010001||Viu
SvRV_set|5.009003|5.003007|p
sv_rvunweaken|5.027004|5.027004|
sv_rvweaken|5.006000|5.006000|
SvRVx|5.003007||Viu
SvRX|5.009005|5.003007|p
SvRXOK|5.009005|5.003007|p
SV_SAVED_COPY|5.009005||Viu
SvSCREAM|5.003007||Viu
SvSCREAM_off|5.003007||Viu
SvSCREAM_on|5.003007||Viu
sv_setbool|5.035004|5.035004|
sv_setbool_mg|5.035004|5.035004|
sv_setgid|5.019001||Viu

tlib/t/D.pm  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
package t::D;
 
use B::Hooks::AtRuntime qw/at_runtime after_runtime/;
#use Scalar::Util "weaken";
#use Devel::FindRef;
#use Devel::Peek;
#use Devel::Cycle;
 
#my @All;
#warn "\@All: " . \@All;
#warn "\@::D: " . \@::D;
 
sub new { bless [$_[1]], $_[0] }
sub DESTROY { push @::D, @{$_[0] } }
sub import {
    my $d = t::D->new($_[1]);
#    push @All, \$d;
#    weaken $All[-1];
    $_[2] ? after_runtime { $d } : at_runtime { $d };
}
 
#sub dump_all { 
#    for (@All) {
#        ref or next;
#        #Dump $$_;
#        warn Devel::FindRef::track $$_;
#        find_cycle $$_;
#    }