Select Code to Download

Select or download this

package Selfcontrol; 
use strict;
...
        "\n\tInstead you gave me $self that refs to '$ref'"; 
}

Select or download this

    my $self = $bugfree ? shift : selfcontrol( shift );

Select or download this

        for ('Operator', 'SQLStatement', 'PerlVariable', 'CompModifier
+') {
            $self->findTokenPos( $_, $i, $blocklast ); 
            $numberOthers += scalar( @_ );
        }

Select or download this

# # Modification of a read-only value attempted,  chunk 1.
File ':Selfcontrol.pm'; Line 15
...
File ':embedSQL.pm'; Line 202
#     embedSQL::parse('embedSQL=HASH(0x2b31864)') called
File 'Documenten:embedSQL:test1.pl'; Line 10

Select or download this


        for my $str ('Operator', 'SQLStatement', 'PerlVariable', 'Comp
+Modifier') {
...
            $numberOthers += scalar( @_ );
        }