Class-Load-0.23HEADClass-Load-0.23master

1 files changed, 59 insertions, 0 deletions

diff --git a/lib/Class/Load/PP.pm b/lib/Class/Load/PP.pm
new file mode 100644
index 0000000..a38d408
--- /dev/null
+++ b/lib/Class/Load/PP.pm
@@ -0,0 +1,59 @@
+use strict;
+use warnings;
+package Class::Load::PP;
+
+our $VERSION = '0.23';
+
+use Module::Runtime ();
+use Package::Stash 0.14;
+use Scalar::Util ();
+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 Module::Runtime::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 && Scalar::Util::reftype $version eq 'SCALAR' && defined ${$version};
+            # a version object
+            return 1 if Scalar::Util::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;