|
|
|
@ -9,7 +9,7 @@ index 19d3d63..2c5fdd1 100644
|
|
|
|
|
- return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') || UNIVERSAL::isa($thingy,'REF');
|
|
|
|
|
+ return 'SCALAR' if UNIVERSAL::isa($thingy,'SCALAR') ||
|
|
|
|
|
+ UNIVERSAL::isa($thingy,'REF') ||
|
|
|
|
|
+ UNIVERSAL::isa($thingy,'Regexp');
|
|
|
|
|
+ UNIVERSAL::isa($thingy,'Regexp');
|
|
|
|
|
return 'ARRAY' if UNIVERSAL::isa($thingy,'ARRAY');
|
|
|
|
|
return 'HASH' if UNIVERSAL::isa($thingy,'HASH');
|
|
|
|
|
return 'CODE' if UNIVERSAL::isa($thingy,'CODE');
|
|
|
|
|