403Webshell
Server IP : 104.21.94.62  /  Your IP : 216.73.217.55
Web Server : Apache
System : Linux semi1.us.cloudlogin.co 5.10.244-xeon-hst #1 SMP Sun Sep 14 17:09:20 UTC 2025 x86_64
User : xessglobal ( 271017)
PHP Version : 8.1.33
Disable Function : NONE
MySQL : OFF |  cURL : ON |  WGET : ON |  Perl : ON |  Python : ON |  Sudo : OFF |  Pkexec : ON
Directory :  /lib64/perl5/vendor_perl/Devel/Cover/

Upload File :
current_dir [ Writeable] document_root [ Writeable]

 

Command :


[ Back ]     

Current File : /lib64/perl5/vendor_perl/Devel/Cover/Inc.pm
# Copyright 2001-2019, Paul Johnson ([email protected])

# This software is free.  It is licensed under the same terms as Perl itself.

# The latest version of this software should be available from my homepage:
# http://www.pjcj.net

# This file was automatically generated by Makefile.PL.

package Devel::Cover::Inc;

use strict;
use warnings;

our $VERSION      = "1.33";
our $Perl_version = '5.026003';
our @Inc          = @{ [
  '/usr/lib64/perl5',
  '/usr/lib64/perl5/vendor_perl',
  '/usr/share/perl5',
  '/usr/share/perl5/vendor_perl'
] };
chomp (our $Perl  = <<'EOV');  # Careful with \\ in the path
/usr/bin/perl
EOV

if ($Perl_version ne $]) {
    print STDERR <<"EOM";

This version of Devel::Cover was built with Perl version $Perl_version.
It is now being run with Perl version $].
Attempting to make adjustments, but you may find that some of your modules do
not have coverage data collected.  You may need to alter the +-inc, +-ignore
and +-select options.

EOM
    eval "use Cwd";
    my %inc = map { -d $_ ? (($_ eq "." ? $_ : Cwd::abs_path($_)) => 1) : () }
                   @INC;
    @Inc = sort keys %inc;
}

# TODO - check for threadedness, 64bits etc. ?

1

Youez - 2016 - github.com/yon3zu
LinuXploit