Select Code to Download

Select or download this

        if ( ref( $value ) ) {                   # <- that's a ref!
            # We have multiple values for this key
...
            $value = uri_escape( $value, $cgi_chars );
            $query_string .= "$key=$value&";
        }

Select or download this

        if ( ! ref( $value ) ) {
            $value = uri_escape( $value, $cgi_chars );
...
                $query_string .= "$key=$array_value&";
            }
        }

Select or download this

    if(  UNIVERSAL::isa( $r, "ARRAY" )  ) {
        # access @$r here
    } elsif(  UNIVERSAL::isa( $r, "HASH" )  ) {
        # access %$r here

Select or download this

    if(  ref($r)  &&  "$r" =~ /(^|=)HASH/  ) {

Select or download this

sub method {
    my $self= shift;
    die "Invalid object" unless ref($self) eq "My::Package";

Select or download this

    die "Invalid object" unless UNIVERSAL::isa( $self, __PACKAGE__ );
# or
    die "Invalid object" unless eval { $self->isa(__PACKAGE__) };

Select or download this
```
if(  ref($r)  &&  "$r" =~ /=/  )
```