uawdijnntqw1x1x1
IP : 216.73.216.1
Hostname : www.vorobey-market.ru
Kernel : Linux www.vorobey-market.ru 3.10.0-514.el7.x86_64 #1 SMP Tue Nov 22 16:42:41 UTC 2016 x86_64
Disable Function : None :)
OS : Linux
PATH:
/
home
/
..
/
usr
/
src
/
..
/
libexec
/
..
/
src
/
..
/
src
/
..
/
share
/
perl5
/
Module
/
..
/
vendor_perl
/
Class
/
Load
/
PP.pm
/
/
package Class::Load::PP; { $Class::Load::PP::VERSION = '0.20'; } use strict; use warnings; use Module::Runtime 'is_module_name'; use Package::Stash 0.14; use Scalar::Util 'blessed', 'reftype'; use Try::Tiny; sub is_class_loaded { my $class = shift; my $options = shift; my $loaded = _is_class_loaded($class); return $loaded if ! $loaded; return $loaded unless $options && $options->{-version}; return try { $class->VERSION($options->{-version}); 1; } catch { 0; }; } sub _is_class_loaded { my $class = shift; return 0 unless is_module_name($class); my $stash = Package::Stash->new($class); if ($stash->has_symbol('$VERSION')) { my $version = ${ $stash->get_symbol('$VERSION') }; if (defined $version) { return 1 if ! ref $version; # Sometimes $VERSION ends up as a reference to undef (weird) return 1 if ref $version && reftype $version eq 'SCALAR' && defined ${$version}; # a version object return 1 if blessed $version; } } if ($stash->has_symbol('@ISA')) { return 1 if @{ $stash->get_symbol('@ISA') }; } # check for any method return 1 if $stash->list_all_symbols('CODE'); # fail return 0; } 1;
/home/../usr/src/../libexec/../src/../src/../share/perl5/Module/../vendor_perl/Class/Load/PP.pm