view release on metacpan or  search on metacpan

lib/B/DeparseTree/TreeMain.pm  view on Meta::CPAN

765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
}
if ($^W) { # deparse -w
    print qq(BEGIN { \$^W = $^W; }\n);
}
if ($/ ne "\n" or defined $O::savebackslash) { # deparse -l and -0
    my $fs = perlstring($/) || 'undef';
    my $bs = perlstring($O::savebackslash) || 'undef';
    print qq(BEGIN { \$/ = $fs; \$\\ = $bs; }\n);
}
my @BEGINs  = B::begin_av->isa("B::AV") ? B::begin_av->ARRAY : ();
my @UNITCHECKs = B::unitcheck_av->isa("B::AV")
    ? B::unitcheck_av->ARRAY
    : ();
my @CHECKs  = B::check_av->isa("B::AV") ? B::check_av->ARRAY : ();
my @INITs   = B::init_av->isa("B::AV") ? B::init_av->ARRAY : ();
my @ENDs    = B::end_av->isa("B::AV") ? B::end_av->ARRAY : ();
if ($] < 5.020) {
    for my $block (@BEGINs, @UNITCHECKs, @CHECKs, @INITs, @ENDs) {
        $self->B::Deparse::todo($block, 0);
    }
} else {
    my @names = qw(BEGIN UNITCHECK CHECK INIT END);
    my @blocks = (\@BEGINs, \@UNITCHECKs, \@CHECKs, \@INITs, \@ENDs);
    while (@names) {
        my ($name, $blocks) = (shift @names, shift @blocks);
        for my $block (@$blocks) {
            $self->todo($block, 0, $name);
        }
    }
}
$self->B::Deparse::stash_subs();
local($SIG{"__DIE__"}) =
    sub {

t/10-core.t  view on Meta::CPAN

167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
__FILE__
__LINE__
__PACKAGE__
AUTOLOAD
BEGIN
CHECK
CORE
DESTROY
END
INIT
UNITCHECK
default
else
elsif
for
foreach
format
given
if
m
no

t/20-deparse-526c.t  view on Meta::CPAN

369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
__FILE__
__LINE__
__PACKAGE__
AUTOLOAD
BEGIN
CHECK
CORE
DESTROY
END
INIT
UNITCHECK
default
else
elsif
for
foreach
format
given
if
m
no