Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.140
Domains :
Cant Read [ /etc/named.conf ]
User : SISTEMA
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
C: /
xampp /
perl /
vendor /
lib /
Log /
Report /
DBIC /
Delete
Unzip
Name
Size
Permission
Date
Action
Profiler.pm
927
B
-rw-rw-rw-
2021-01-15 17:36
Profiler.pod
1.19
KB
-rw-rw-rw-
2021-01-15 17:36
Save
Rename
# Copyrights 2007-2021 by [Mark Overmeer <markov@cpan.org>]. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 2.02. # This code is part of distribution Log-Report. Meta-POD processed with # OODoc into POD and HTML manual-pages. See README.md # Copyright Mark Overmeer. Licensed under the same terms as Perl itself. package Log::Report::DBIC::Profiler; use vars '$VERSION'; $VERSION = '1.31'; use base 'DBIx::Class::Storage::Statistics'; use strict; use warnings; use Log::Report 'log-report', import => 'trace'; use Time::HiRes qw(time); my $start; sub print($) { trace $_[1] } sub query_start(@) { my $self = shift; $self->SUPER::query_start(@_); $start = time; } sub query_end(@) { my $self = shift; $self->SUPER::query_end(@_); trace sprintf "execution took %0.4f seconds elapse", time-$start; } 1;