JezK
Edit File: Constants.pm
package Params::Validate::Constants; use strict; use warnings; our $VERSION = '1.31'; our @ISA = 'Exporter'; our @EXPORT = qw( SCALAR ARRAYREF HASHREF CODEREF GLOB GLOBREF SCALARREF HANDLE BOOLEAN UNDEF OBJECT UNKNOWN ); sub SCALAR () {1} sub ARRAYREF () {2} sub HASHREF () {4} sub CODEREF () {8} sub GLOB () {16} sub GLOBREF () {32} sub SCALARREF () {64} sub UNKNOWN () {128} sub UNDEF () {256} sub OBJECT () {512} sub HANDLE () { 16 | 32 } sub BOOLEAN () { 1 | 256 } 1;