Devel-NYTProf
view release on metacpan or search on metacpan
char buf[80];
logwarn("Eval '%s' (fid %d, flags:%s) has unknown invoking fid %d\n",
SvPV_nolen(filename_sv), file_num,
fmt_fid_flags(aTHX_ fid_flags, buf, sizeof(buf)), eval_file_num);
/* so make it look like a real file instead of an eval */
av_store(av, NYTP_FIDi_EVAL_FI, NULL);
eval_file_num = 0;
eval_line_num = 0;
}
else {
av_store(av, NYTP_FIDi_EVAL_FI, sv_rvweaken(newSVsv(eval_fi)));
/* the fid that contained the eval has a list of eval fids */
has_evals = *av_fetch((AV *)SvRV(eval_fi), NYTP_FIDi_HAS_EVALS, 1);
if (!SvROK(has_evals)) /* autoviv */
sv_setsv(has_evals, newRV_noinc((SV*)newAV()));
av_push((AV *)SvRV(has_evals), sv_rvweaken(newSVsv(rv)));
}
}
else {
av_store(av, NYTP_FIDi_EVAL_FI, NULL);
}
av_store(av, NYTP_FIDi_EVAL_FID, (eval_file_num) ? newSVuv(eval_file_num) : &PL_sv_no);
av_store(av, NYTP_FIDi_EVAL_LINE, (eval_file_num) ? newSVuv(eval_line_num) : &PL_sv_no);
av_store(av, NYTP_FIDi_FID, newSVuv(file_num));
av_store(av, NYTP_FIDi_FLAGS, newSVuv(fid_flags));
av_store(av, NYTP_FIDi_FILESIZE, newSVuv(file_size));
lib/Devel/NYTProf/Data.pm view on Meta::CPAN
return undef if $args->{callback};
print "Processing $file data\n" unless $args->{quiet};
bless $profile => $class;
my $fid_fileinfo = $profile->{fid_fileinfo};
my $sub_subinfo = $profile->{sub_subinfo};
# add profile ref so fidinfo & subinfo objects
# XXX circular ref, add weaken
for (@$fid_fileinfo) { $_ and $_->[7] = $profile; }
$_->[7] = $profile for values %$sub_subinfo;
# bless sub_subinfo data
(my $sub_class = $class) =~ s/\w+$/SubInfo/;
$_ and bless $_ => $sub_class for values %$sub_subinfo;
# create profiler_active attribute by subtracting from profiler_duration
# currently we only subtract cumulative_overhead_ticks
my $attribute = $profile->{attribute};
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
( run in 0.894 second using v1.01-cache-2.11-cpan-65fba6d93b7 )