Let PDF::Class::Loader have precedence over PDF::Lite::Loader

Author: dwarring

Changes

@@ -1,5 +1,8 @@
 {{$NEXT}}
     - Deprecate Hash to Stream dictionary coercement
+    - Remove deprecated PDF permitted() method.
+    - Give PDF::Class::Loader precedence over PDF::Lite::Loader
+    - Refactor PDF::COS::Null coercement
 
 0.6.12  2025-07-27T09:41:05+12:00
     - Adjust to OpenSSL v0.2.5+.

lib/PDF/COS.rakumod

@@ -32,13 +32,8 @@ multi method COERCE(Enumeration $_) is default {
 
 # low precedence fallback
 multi method COERCE($v is raw) {
-    if !$v.defined && self.isa("PDF::COS::Null") {
-        self.new;
-    }
-    else {
-        warn "failed to coerce {$v.raku} to {self.WHAT.raku}";
-        $v;
-    }
+    warn "failed to coerce {$v.raku} to {self.WHAT.raku}";
+    $v;
 }
 
 proto method coerce(|) {*}
@@ -163,10 +158,17 @@ method !coercer {
 }
 
 method loader is rw handles <load-delegate> {
-    unless $loader.can('load-delegate') {
-        $loader = $.required('PDF::COS::Loader');
+    sub FETCH($) {
+        $loader = $.required('PDF::COS::Loader')
+            if $loader === Any;
+        $loader;
+    }
+    sub STORE($, $l) {
+        $loader = $l
+            unless $loader.isa('PDF::Class::Loader')
+            &&     $l.isa('PDF::Lite::Loader');
     }
-    $loader
+    Proxy.new: :&FETCH, :&STORE;
 }
 
 multi method ACCEPTS(Any:D: Any:D $v) is default {

lib/PDF/COS/Null.rakumod

@@ -8,4 +8,5 @@ also does PDF::COS;
 
 method defined { False }
 method content { :null(Any) }
+multi method COERCE(Any:U) is default { self.new }
 multi method ACCEPTS(Any:U) { True }