sub _get_self { my $reftype = Scalar::Util::reftype( $_[0] ); $reftype = '' unless defined $reftype; if ( $reftype eq 'ARRAY' ) { return tied( @{ $_[0] } || $_[0] } return $_[0]; }