allow PDL::{Factor,Logical,SV} "initialize" to be instance methods

Author: mohawk2

Changes

@@ -1,5 +1,8 @@
 Revision history of Data-Frame
 
+0.006003    TBD
+    - allow PDL::{Factor,Logical,SV} "initialize" to be instance methods
+
 0.006002    2022-01-03 14:33:22-0500
     - Fix PDL::Factor's ngood, nbad methods for newer PDL versions.
       See <https://github.com/EntropyOrg/p5-Data-Frame/pull/34>.

lib/PDL/Factor.pm

@@ -193,7 +193,7 @@ sub levels {
 
 sub initialize {
     my ($class) = @_;
-    return bless( { PDL => PDL::Core::null }, $class );
+    return bless( { PDL => PDL::Core::null }, ref $class || $class );
 }
 
 =method glue

lib/PDL/Logical.pm

@@ -50,7 +50,7 @@ sub new {
 
 sub initialize {
     my ($class) = @_;
-    return bless( { PDL => PDL::Core::null }, $class );
+    return bless( { PDL => PDL::Core::null }, ref $class || $class );
 }
 
 1;

lib/PDL/SV.pm

@@ -122,7 +122,7 @@ sub new {
 
 sub initialize {
     my ($class) = @_;
-    return bless( { PDL => PDL::Core::null, _internal => [] }, $class );
+    return bless( { PDL => PDL::Core::null, _internal => [] }, ref $class || $class );
 }
 
 # code modified from <https://metacpan.org/pod/Hash::Path>

t/13-pdl_logical.t

@@ -31,6 +31,8 @@ subtest construction => sub {
     pdl_is( $l3, PDL::Logical->new( [ [ 0, 1, 1 ], [ 1, 0, 0 ] ] ),
         'new($aref_nd)' );
     pdl_is( $l3->shape, pdl( [ 3, 2 ] ) );
+
+    isa_ok $l1a->initialize, 'PDL::Logical';
 };
 
 done_testing;